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PREFACE 


ORGANIZATION 


This manual is intended for programming-support customer 
engineers and programmers who require specific information about 
queued sequential access method (QSAM), basic sequential access 
method (BSAM), and basic partitioned access method (BPAM) 
routines. 


This manual has the following parts: 


"Introduction™ describes the sequential access method (SAM) 
routines and includes a reference to Diagram A, "Sequential 
Access Method—Overview.™ This diagram lists the macro 
statements used with SAM programming techniques and directs the 
peace to appropriate diagrams and figures in other parts of the 
manual . 


In "Method of Operation,™ SAM routines are described in the 
following categories: 


e Queued sequential access method (QSAM) routines that cause 
a gl aee and retrieval of data records arranged in sequential 
order. 


° Basic sequential access method (CBSAM) routines that cause 
Se and retrieval of data blocks arranged in sequential 
order. 


e Basic partitioned access method (BPAM) routines that cause 
storage and retrieval of data blocks in a member of a 
partitioned data set. They can also construct entries and 
search for entries in the directory of a partitioned data 


set. 
e Executors that operate with input/output support routines. 
e Buffer~-pool management routines that furnish buffer space in 


virtual storage. 


e Problem determination that helps the user determine the 
causes of abends by providing more information on the reason 
for the termination. 


° SVC routines that provide supervisor state operation for 
functions that cannot be done in the problem state or in the 
user's key. 


e Task recovery routines that provide explicit validity 
checking for SVC routines that experience program checks or 
other abend conditions. 


"Program Organization and Flow of Control™ contains diagrams 
te cee ee the organization and flow of control of the SAM 
routines. 


"Directory™ lists the names of the sequential access method 
modules in alphabetic order. Each entry contains the module 
name, type, CSECT name, SVC entry (Cif any), and references to 
figures and appendixes in other parts of the manual that have 
information about the module. 


"Data Areas™ shows how various control blocks are used in QSAM 
and BSAM. This section also describes the access method save 
area for user totaling and the job entry subsystem (JES) 
compatibility interface control block. "Data Areas" does not 
describe in detail all fields of the system control blocks 
referred to in this manual. For more detailed information about 
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system control blocks, see MVS/Extended Architecture Data 
Areas—JES2, LYB8-1191, and MVS/Extended Architecture Data 
Areas—JES3, LYB8&-1195. } 


"Diagnostic Aids™ contains diagrams of control blocks and an 
abend codes cross-reference table. 


"Appendixes" describe channel programs for direct-access 
storage, and BDAM create channel programs. 


PREREQUISITE KNOWLEDGE 


To use this book efficiently, you should be familiar with the 
following topics: 


° Basic concepts of data management 


e Processing sequential and partitioned data sets 


PREREQUISITE READING 


The above topics are discussed in MVS/Extended Architecture Data 
Administration Guide, GC26-4140. 


RELATED PUBLICATIONS 


Within the text, references are made to the publications listed 
in the table below: 


Short Title Publication Title Order Number 


ACF/TCAM Advanced Communications $C30-3137 
Diagnosis Guide Function for TCAM, Version 2 
Diagnosis Guide 


ACF/TCAM Advanced Communications LY30-3052 
Diagnosis Function for TCAM, Version 2 
Reference Diagnosis Reference 


Data MVS/Extended Architecture GC26-4141 
Administration: Data Administration: Macro 

Macro Instruction Reference 

Instruction 

Reference 


Data Areas MVS/Extended Architecture LYB8-1191 
Data Areas (MVS/JES2) 

Data Areas MVSZExtended Architecture LYB8-1195 
Data Areas (MVS/JES3) Areas (MVS/JES3) 


Debugging MvS/Extended Architecture Architecture LC28-11643 
Handbook Debugging Handbook, Volumes LC28-1165 
1 thecuch 5 LC28-1166 

LC28-1167 

LC28-1168 


IBM 3800 IBM 3800 Printing Subsystem SH35-0061 
Printing 

Subsystem 

Programmer's 

Guide 








Note: 
i All five volumes may be ordered under one order number, 2 
LBOF-1015. 
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Short Title Publication Title Order Number 

Initialization MVS/Extended Architecture GC28-1149 

and Tuning System Programming Library: 

Guide Initialization and Tuning 

JES2 Logic MVS7Extended Architecture LY24-6008 
JES2 Logic 

Open/Close/ EOV MVS/Extended Architecture LY26-3966 

Logic Open/Close/EOV Logic 


OS/VS Logic for OS/7VS_ Logic for IBM 3890 SY24-5163 
IBM 3890 Document Processor 
Document 
Processor 
Service Aids MVS/Extended Architecture GC28-1159 
System Programming Library: 
Service Aids 


SYS1.LOGREC MVS/Extended Architecture GC28-1162 
Error Recording System Programming Library: 
SYS1.LOGREC Error Recording 


System Codes MVS/Extended Architecture GC28-1157 
Message Library: System 
Codes 


System—Data MVS7Extended Architecture GC26-4149 
Administration System—Data Administration 


System Logic MVS/Extended Architecture SY28-1208 
Library System Logic Library, through 
Volumes 1 through 16 LY28-1266 


System Messages MVS/7Extended Architecture GC28-1376 


Message Library: System and 
Messages, Volumes 1 and 2 GC28-1377 


VIO Logic MVS/Extended Architecture LY26-3900 
VIO Logic 
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SUMMARY OF AMENDMENTS 
J 


RELEASE 1.0, APRIL 1985 


NEW DEVICE SUPPORT 


e Module descriptions for IGX00030, IGX00031, and IGX00032 
have been added. 


e Updates to support the IBM 4248 and 3263 Model 5 Printers 
have been made to the Printer Device Characteristics Table 
CIGGPDC) and the SETPRT Parameter List CIHASPP) under "Data 
Areas" on page 210, and the SETPRI Executor Return/Reason 
ete Messages Table under "Diagnostic Aids®™ on 
page : 


NEW PROGRAM SUPPORT 


A description of the subsystem CICB has been added to "Data 
Areas™ on page 210. 


VERSION 2 PUBLICATIONS 


The Preface includes new order numbers for Version 2. 
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TRODUCTIO 


Sequential access methods (SAM) are programming techniques for 

transferring data arranged in sequential order between virtual 

storage and an input/output device. This manual describes five 
groups of sequential access method routines. They are: 


e Queued sequential access method CQSAM) routines 
e Basic sequential access method (BSAM) routines 
e Basic partitioned access method (BPAM) routines 
e Sequential access method executors 

e Buffer-pool management routines 


A processing program using QSAM routines works with records. 

For input, QSAM routines turn the blocks of data of the channel 
programs into a stream of input records for the processing 
program; for output, QSAM routines collect the successive output 
records of the processing program into blocks of data to be 
written by channel programs. See Diagram F for information 
about the flow of control for QSAM routines. 


A processing program using BSAM routines works with blocks of 
data. For input, BSAM routines cause a channel program to read 
a block of data for the processing program; for output, BSAM 
routines cause a channel program to write a block of data for 
the processing program. BSAM routines are also used to read and 
write blocks of data for members of a partitioned data set. See 
Diagram G for flow of control information about BSAM routines. 


A processing program that uses BSAM or QSAM to access SYSIN or 
SYSOUT data sets invokes a special subset of SAM routines called 
SAM-SI CSAM Subsystem Interface). These routines operate as a 
compatibility interface to job entry subsystems, such as JES2, 
that control these data sets. See Diagram M in "Program 
Organization and Flow of Control" for information about the flow 
of control in SAM-SI routines for BSAM and QSAM. 


A processing program using BPAM routines also works with blocks 
of data. For output, BPAM routines construct and cause writing 
of entries in the directory; for input, BPAM routines search for 
and read entries from the directory. To read and write the 
blocks of the members, a processing program uses the BSAM 
routines. Flow of control for the BPAM routines is shown in 
Diagram G. 


Sequential access method executors are modules that operate with 
the OPEN and CLOSE routines. When a data control block is 
opened, an executor constructs control blocks and loads the 
access method routines. The access method routines reside in 
the link pack area. 


When the end of a data set or volume is reached, an EOV SVC is 
issued to process the pending input/output blocks. The 
executors described are: 


e OPEN executors 
e CLOSE executors 


Buffer-pool management routines form buffers in virtual storage 
and return virtual storage space (for buffers no longer needed) 
to available status. A buffer-pool management routine is 
entered when a GETPOOL, BUILD, GETBUF, FREEBUF, or FREEPOOL 
macro instruction is encountered in a program. 
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in virtual storage. However, the GETPOOL routine also obtains 
the virtual storage space for the buffer pool. Virtual storage 
space must be provided by the processing program when the BUILD 
routine 1S used. 


The GETBUF and FREEBUF routines handle individual buffers. 
GETBUF obtains a buffer from a buffer pool and FREEBUF returns a 
buffer to a buffer pool. 


The GETPOOL and BUILD routines together form a pool of buffers : 
) 


The FREEPOOL routine returns the virtual-storage space used for 
a buffer pool. 


Diagram A in "Program Organization and Flow of Control™ lists 
the macro statements that are used with sequential access method 
programming techniques. The diagram also refers to figures in 
other portions of the manual that describe the SAM routines, 
appendages, and executors associated with each macro statement. 
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METHOD OF OPERATION 


QUEUED SEQUENTIAL ACCESS METHOD ROUTINES 


GET ROUTINES 


Queued sequential access method CQSAM) routines cause storage 
and retrieval of records and furnish buffering and blocking 
facilities. There are seven types of QSAM routines: 


e GET routines 

° PUT routines 

° End-of-block routines 

e Synchronizing and error-processing routines (including the 


IBM 3211 and 3203 printer retry 
asynchronous~—error-processing routines) 


e Appendage routines 
e Control routines 
e SVC Routines 


Diagram F, "QSAM Flow of Control," shows the relationship of 
QSAM routines to other portions of the operating system and to 
the processing program. 


GET routines determine the address of the next input record by 
referring to the DCB. In update mode, the next output record is 
the last input record. 


If the American National Standard Code for Information 
Interchange (ASCII) is used, the GET routine (if it is specified 
in the DCB) will accept a record with a block prefix. The GET 
routines do not present the block prefix to the processing 
program; the block prefix is specified by the BUFOFF option in 
the DCB. For more information on block prefix and record 
formats for ASCII, see Data Administration Guide. 


Because there is an unused byte at the beginning of each segment 
descriptor word (SDN), the GET routines that process records in 

the ISO/ANSI/FIPS spanned record format must make record address 
adjustments. The unused byte results from the conversion of the 
aaa segment control word (SCW) to the 4-byte 


The GET routine descriptions that follow are accordingly grouped 
as: 


e Simple-buffering GET routines 


e Update-mode GET routine 
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Simple-Buffering GET Routines 


4 MVS/XA SAM Logic 


Simple-buffering GET routines use buffers whose beginning and 
ending addresses are in the data control block (DCB). The 
beginning address is in the DCBRECAD field Caddress of the next 
record); the ending address is in the DCBEOBAD field Caddress of 
the end of the buffer). In each pass through a routine, it 
determines: 


° The address of the next record 


e Whether an input buffer is empty and ready to be scheduled 
for refilling 


e Whether a new full input buffer is needed 


If the records are unblocked, the address of the next record is 
always that of the next buffer. 


If the records are blocked, a GET routine determines the address 
of the next record by adding the length of the last record to 
the address of the last record. The address of the last record 
is in the DCBRECAD field of the data control block (DCB). If 
the records are fixed-length blocked records, the length of each 
record is in the DCBLRECL field. If the records are 
variable-length blocked records, the length of each record is in 
the length field of the record itself. 


A GET routine determines whether a buffer is empty and ready for 
refilling and whether a new full buffer is needed by testing for 
an end-of-block CEQB) condition. 


When a buffer is empty, a GET routine passes control to an 
end-of-block routine to refill the buffer. The buffers are 
filled for the first time by OPEN executor IGG01911 for tape and 
unit record devices, and by IGG0193B for direct-access storage 
devices. Thus, the buffers are primed for the first entry into 
a GET routine. 


When a new full buffer is needed, a GET routine obtains it by 
passing control to the input-synchronizing and error-processing 
routine, module IGGO19AQ. The synchronizing routine updates the 
DCBIOBA field, thus pointing to the new buffer, and returns 
control to the GET routine. A GET routine updates the DCBRECAD 
field by inserting in it the starting address of the buffer from 
the channel program associated with the new IOB. To update the 
DCBEOBAD field, a GET routine adds the actual length of the 
block read to the buffer starting address. These two fields, 
DCBRECAD and DCBEOBAD, define the available buffer. 


For unblocked records, an EOB condition exists after every entry 
into the GET routine. For blocked records, an EOB condition 
exists when the values in the DCBRECAD and DCBEOBAD fields are 
equal. For ISO/ANSI/FIPS fixed block format, an EOB condition 
exists when the next logical record of a block consists of all 
X*5F's. In the move operating mode, the buffer can be scheduled 
for refilling as soon as the last record is moved out; thus, an 
EOB test is made after moving each record, so that the buffer 
can be scheduled for refilling as soon as possible. Another EOB 
test is made on the next entry to the routine to determine 
whether a new full buffer is needed. In the locate mode, the 
empty buffer is scheduled when the routine is entered, if the 
last record was presented in the preceding entry; thus, an EOB 
test is made on entry into the routine to determine whether a 
buffer is empty and ready for refilling and also whether a new 
full buffer is needed. 


When the processing program determines that the balance of the 
present buffer is to be ignored and the first record of the next 
buffer is wanted, the processing program issues a RELSE macro 
instruction. Control passes to a RELSE routine that sets an EOB 
condition. When records are spanned, one or more blocks can be 
skipped to find the first record in a new block. 
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If QSAM is used with a DCB opened for input, update, or 
readback, the OPEN executor primes (that is, schedules for 
filling) the buffers. For the locate mode, all buffers except 
one are primed; for the move mode, all buffers are primed. The 
OPEN executor also sets an end-of-block condition; the first 
time that a GET routine gains control, it processes this 
condition in the usual way. 


Upon return from the synchronizing and error-processing routine, 
the GET routines, which may be loaded for tape data sets, test 
to determine if the buffer contains a DOS checkpoint record. If 
a DOS checkpoint record is indicated, ECB posted X*'50', the GET 
routine branches to the end-of-block routine to reschedule the 
buffer for refilling and then branches back to the synchronizing 
routine to test the next buffer. 


Figure 1 on page 6 lists the simple-buffering GET routines and 
the conditions that cause a particular routine to be used. The 
OPEN executor selects one of the routines, loads it, and puts 
its address into the DCBGET field. Figure 1 shows, for example, 
that when the OPEN parameter list specifies input and the DCB 
specifies the GET macro instruction, simple buffering, the 
locate mode, and the fixed-length record format, routine 
IGGO19SAA is selected and loaded. 
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Figure 1. Module Selection—Simple-Buffering GET Modules 
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GET Module IGGO19AA: Module IGGO19AA presents the processing 
program with the address of the next fixed-length or 
undefined-length record. The OPEN executor selects and loads 
this module if the OPEN parameter list specifies: 


Input 

and the DCB specifies: 
GET 
Simple buffering 
Locate operating mode 


Fixed-length Cunblocked, blocked, or blocked standard) or 
undefined-length record format 


The module consists of a GET routine and a RELSE routine. 
The GET routine operates as follows: 


® It receives control when a GET macro instruction is 
encountered in a processing program. 


e It tests for an EOB condition to determine whether a buffer 
is empty and ready for refilling and if a new buffer is 
needed. When the OPEN executor primes the buffers, it 
schedules all buffers except one and sets an EOB condition. 
For ISO/ANSI/FIPS, an EOB condition exists when the next 
logical record ina block consists of all padding characters 
CX'5F's). The first logical record ina block must not 
consist of all padding characters. 


e If no EUB condition exists, the GET routine determines the 
address of the next record, and then presents the address to 
the processing program and returns control to the processing 
program. 


° If an EQB condition exists, the GET routine issues a BALR 
instruction to pass the present buffer to the end-of-block 
routine to be scheduled for refilling. The GET routine 
issues another BALR instruction to obtain a new full buffer 
through the input-synchronizing and error-processing 
routine, module IGGO1L9AQ. The GET routine then presents the 
address of the first record of the new buffer to the 
processing program and returns control to the processing 
program. 


The RELSE routine causes an EOB condition by setting the 
DCBRECAD and DCBEOBAD fields so that they are equal; it then 
returns control to the processing program. 
GET Module IGGO19AB: Module IGGO19AB presents the processing 
program with the address of the next variable-length or format-—-D 
record. The OPEN executor selects and loads this module if the 
OPEN parameter list specifies: 

Input 
and the DCB specifies: 

GET 

Simple buffering 


Locate operating mode 


Variable-length or record format-D Cunblocked or blocked), 
unspanned 


The module consists of a GET routine and a RELSE routine. 
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The GET routine operates as follows: 


e It receives control when a GET macro instruction is 
encountered in a processing program. 


e It determines the address of the next record and tests for 
an EOB condition to determine whether a buffer is empty and 
ready for refilling and if a new buffer is needed. When the 
OPEN executor primes the buffers, it schedules all buffers 
except one and sets an EOB condition. For ISO/ANSI/FIPS, an 
EOB condition exists when the next logical record ina block 
consists of all padding characters (X'5F's). The first 
logical record ina block must not consist of padding 
characters. 


° If no EOB condition exists, it presents the address of the 
next record to the processing program and returns control to 
the processing progran. 


° If an EOB condition exists, it issues a BALR instruction to 
pass the present buffer to the end-of-block routine to be 
scheduled for refilling. The GET routine issues another 
BALR instruction to obtain a new buffer through the 
input-synchronizing and error-processing routine, module 
IGGO19AQ. The GET routine then presents the address of the 
first record of the new buffer to the processing program and 
returns control to the processing program. 


The RELSE routine causes an EQOB condition by setting the 
DCBRECAD and DCBEOBAD fields so that they are equal; it then 
returns control to the processing program. 


GET Module IGGOQ19AC: Module IGGO19AC moves the next 
fixed-length or undefined-length record to the work area. The 
OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 

Input 
and the DCB specifies: 

GET 

Simple buffering 


Move operating mode 


Fixed-length Cunblocked, blocked, or blocked standard) or 
undefined-length record format 


The DCB does not, however, specify the CNTRL macro instruction. 
The module consists of a GET routine and a RELSE routine. 
The GET routine operates as follows: 


e It receives control when a GET macro instruction is 
encountered in a processing program. 


e It tests for an EOB condition to determine whether a new 
full buffer is needed. When the OPEN executor primes the 
buffers, it sets this EOQB condition for the first GET macro 
instruction. 


° If no EOB condition exists, the routine moves the next 
record to the work area. 


e If an EOB condition exists, the routine issues a BALR 
instruction to obtain a new buffer through the 
input-synchronizing and error-processing routine, module 
IGGO19AQ, and moves the first record of the new buffer to 
the work area. 
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The 


It tests for a new EOB condition to determine whether a 
buffer is empty and ready for refilling. For unblocked 
records, this condition exists at every entry into the 
routine. 


If no new EOB condition exists, the routine returns control 
to the processing program. 


If a new EOB condition exists, the routine issues a BALR 
instruction to pass the present buffer to the end-of-block 
routine to be scheduled for refilling and returns control to 
the processing program. 


RELSE routine sets a bit in the DCB so that the GET routine 


passes the buffer for refilling and obtains a new full buffer 


the 
GET 


next time the routine is entered. 


Module IGGO19AD: Module IGGO19AD moves the next 


variable-length or format-D record to the work area. The OPEN 
executor selects and loads this module if the OPEN parameter 
list specifies: 


and 


The 
The 
The 


The 


Input 

the DCB specifies: 
GET 

Simple buffering 
Move operating mode 


Variable-length or record format-D Cunblocked or blocked), 
unspanned 


DCB does not, however, specify the CNITRL macro instruction. 
module consists of a GET anda RELSE routine. 
GET routine operates as follows: 


It receives control when a GET macro instruction is 
encountered in a processing program. 


It tests for an EOB condition to determine whether a new 
full buffer is needed. When the OPEN executor primes the 
buffers, it also sets an end-of-block condition for the 
first GET macro instruction. 


If an EOB condition exists, the routine issues a BALR 
instruction to obtain a new buffer through the 
input-synchronizing and error-processing routine, module 
IGGO19AQ, and moves the first record to the work area. 


If no EOB condition exists, the routine moves the next 
record to the work area. 


It tests for a new EOB condition to determine whether a 
buffer is empty and ready for refilling. For unblocked 
Deter ices the condition exists after every entry to this 
routine. 


If no new EOB condition exists, the routine returns control 
to the processing program. 


If a new EOB condition exists, the routine issues a BALR 
instruction to pass the present buffer to the end-of-block 
routine to be scheduled for refilling and returns control to 
the processing program. 


RELSE routine sets a bit in the DCB so that the GET routine 


passes the buffer for refilling and obtains a new full buffer 


the 


next time the routine is entered. 
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GET Module IGGO19AG (CNTRL~—Card Reader): Module IGGO19AG moves 
the next fixed-length or undefined-length record to the work 
area without scheduling the buffer for refilling. To refill the 
buffer, the processing program issues a CNTRL macro instruction. 
The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 


Input 

and the DCB specifies: 
GET 
Simple buffering 
Move operating mode 


Fixed-length Cunblocked, blocked, or blocked standard) or 
undefined-length record format 


CNTRL Ccard reader) 
The module consists of a GET routine and a RELSE routine. 
The GET routine operates as follows: 


e It receives control when a GET macro instruction is 
encountered in a processing program. 


e If an EQB condition exists, it resets the DCBRECAD and 
DCBEOBAD fields for the new buffer, issues a BALR to the 
input-synchronizing and error-processing routine, module 
IGGO19AQ, and then tests for blocked records. 


e If no EOB condition exists, it tests immediately for blocked 
records. 


e For blocked records, it updates the DCBRECAD field, moves 
the present record to the work area, and returns control to 
the processing program. 


e For unblocked records, it sets the DCBRECAD and DCBEOBAD 
fields so that they are equal, moves the present record to 
the work area, and returns control to the processing 
Program. 


The RELSE routine sets the value of the DCBEOQBAD field equal to 
that of the DCBRECAD field to establish an EOB condition. 
Control then returns to the processing program. 


GET Module IGGO19AM (RDBACK): Module IGGO19AM presents the 
processing program with the address of the next record when the 
data set is opened for backward reading. The OPEN executor 
selects and loads this module if the OPEN parameter list 
specifies: 

RDBACK 
and the DCB specifies: 

GET 

Simple buffering 

Locate operating mode 


Fixed-length Cunblocked, blocked, or blocked standard) or 
undefined-~length record format 


The module consists of a GET routine and a RELSE routine. 
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The GET routine operates as follows: 


e It receives control when a GET macro instruction is 
encountered in a processing program. 


° It tests for an EOB condition. 


e If no EOB condition exists, it determines the address of the 
next record by subtracting the DCBLRECL value from the 
DCBRECAD value. The routine presents the result to the 
processing program, and returns control to the processing 
program. 


e If an EOB condition exists, it issues a BALR instruction to 
pass the present buffer to the end-of-block routine. The 
GET routine issues another BALR instruction to obtain a new 
buffer through the input-synchronizing and error-processing 
routine, module IGGO19AQ. The GET routine then presents the 
address of the last record of the new buffer to the 
processing program, and returns control to the processing 
program. For ISO/ANSI/FIPS, logical records consisting of 
all padding characters (X'5F's) are skipped. That is, when 
these records are encountered ina block, they are treated 
as padding and processing begins with the next logical 
record in backward sequence. 


The RELSE routine causes an EOB condition by setting the 
DCBRECAD and DCBEOBAD fields so that they are equal; it then 
returns control to the processing program. 


Figure 2 on page 13 illustrates the ordering of records using 
this module. When reading backward under QSAM, each block is 
read from the tape from the end of the block to the beginning, 
each buffer is filled from the end of the buffer to the 
beginning, and the records are presented to the processing 
program in order of the record in the last segment of the buffer 
first, and the record in the first one last. In this manner of 
reading, buffering, and presenting, each record follows in 
backward sequence, from the record presented last out of one 
buffer to the record presented first out of the next buffer. 


GET Module IGGO19AN (RDBACK): Module IGGO19AN moves the next 
record to the work area when the data set is opened for backward 
reading. The OPEN executor selects and loads this module if the 
OPEN parameter list specifies: 

RDBACK 
and the DCB specifies: 

GET 

Simple buffering 


Move operating mode 


Fixed-length Cunblocked, blocked, or blocked standard) or 
undefined-length record format 


The module consists of a GET routine and a RELSE routine. 
The GET routine operates as follows: 


e It receives control when a GET macro instruction is 
encountered in a processing program. 


e It tests for an EOB condition. 
e If no EOB condition exists, it moves the next record to the 


work area, and updates the DCBRECAD field by reducing it by 
the value of the DCBLRECL field. 
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e If an EOB condition exists, it issues a BALR instruction to 
obtain a new buffer through the input-synchronizing and 
error-processing routine, module IGGO19AQ. The GET routine 
then moves the last record of the new buffer to the work 


area. 
e It tests for a new EOB condition. 
e If no new EOB condition exists, it returns control to the 


processing program. 


e If a new EOB condition exists, it issues a BALR instruction 
to pass the present buffer to the end-of-block routine and 
then returns control to the processing program. 


° For ISO/ANSI/FIPS, logical records consisting of all padding 
characters (X'5F's) are skipped. That is, when these 
records are encountered in a block they are treated as 
padding, and processing begins with the next logical record 
in backward sequence. 


The RELSE routine issues a BALR instruction to pass the present 
buffer to the end-of-block routine and then returns control to 
the processing program. 


Figure 2 illustrates the ordering of records using modules 
IGGO19AM and IGGOL1QAN. 
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“4 Direction of Tape Direction of Tape” 
When Reading Backward When Writing 


Last GET for this block 


addresses this segment 


First channel program 
fills this buffer 


First GET for this block areal 
addresses this segment eginning here 


Last GET for this block 
addresses this segment 
: 
Next channel program 


First GET for this block fills this buffer 


addresses this segment ~4— beginning here 


Last GET for this block 


addresses this segment 


wo —$P> 


Next channel program 
fills this buffer 


First GET for this block <4 beginning here 


addresses this segment 





Figure 2. Order of Records Using GET Routines for Data Sets 
Opened for RDBACK CIGGO19AM, IGGO19AN) 


GET Module IGGO19BO0: Module IGGO19BO presents the processing 
program with the address of the next variable-length record. 
The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 

Input 
and the DCB specifies: 

GET 

Simple buffering 


Locate operating mode 


Variable-length spanned Cunblocked or blocked) record format 


Logical record interface 


The module consists of a GET routine and a RELSE routine. 
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The GET routine operates as follows: 


e It receives control when a GET macro instruction is S) 
encountered in the processing program. 


e It determines the address of the next record and tests for 
an EOB condition to determine whether a buffer is empty and 
ready for refilling and if new buffer 1S needed. When the 
OPEN executor primes the buffers, it schedules all buffers 
except one and sets an EOB condition. If ISO/ANSI/FIPS 
spanned records are being processed, the record address is 
adjusted in order to ignore the unused byte that results 
from the conversion of the 5~-byte ISO/ANSI/FIPS segment 
et ae word (SCW) to the G-byte IBM segment descriptor word 


e If no EOB condition exists, it tests whether the next record 
segment contains a complete record. 


e If 1t 1s a complete record, the routine presents the address 
of the next record to the processing program and returns 
control to the processing program. If the extended version 
of logical record interface (XLRI) is being used, the three 
low-order bytes of the first four bytes of a logical record 
are used to indicate the length of the record including the 
first four bytes. 


e If it is the first segment of a spanned record, the routine 
moves the segment to the record area with the proper 
alignment, sets the EOB condition, and determines the 
address of the next record and whether a buffer is ready for 
refilling. 


e If it is a segment that follows another segment of a spanned 
record, the routine moves the segment (without the segment 
descriptor word) next to the previous segment in the record 
area, and updates the count in the record area. This step 
continues until the entire logical record has been assembled 
in the record area. If an EOB condition occurs during this 
process, the routine determines the address of the next 
record and whether a buffer is ready for refilling. When 
the entire logical record 1s assembled, the routine sets the 
spanned record flag in the IOB, presents the address of the 
assembled record, and returns control to the processing 
program. 


e If an EOB condition exists, it issues a BALR instruction to 
pass the present buffer to the EOQB routine to be scheduled 
for refilling. The GET routine issues another BALR 
instruction to obtain a new buffer through the 
input-synchronizing and error-processing routine (module 
IGGO19A0). The routine then obtains and interrogates the 
first record segment of the new buffer. If 1t 1S a complete 
record, the routine presents the address of the next record 
to the processing program and returns control to the 
processing program. 


The RELSE routine operates as follows: 


e It receives control when a RELSE macro instruction 1s 
encountered in the processing program. 


e It sets an EOB condition. 
e It sets a release bit in the DCBRECAD of the DCB. 
e It returns control to the processing program. 


The RELSE routine sets a release bit in the DCB so that the GET 

routine passes the buffer for refilling and obtains a new full 

buffer the next time the routine is entered. After obtaining | 
the new buffer as a result of RELSE, the GET routine 

interrogates the SDW of the first segment to determine if it is 

the first segment of a record (bit 6 in third byte of SDW must 
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be 0); if not, the routine skips to the next SDW and checks it. 
This continues until an acceptable segment is found. The 
routine then processes the GET request in the usual way. The 
procedure may result in one or more additional blocks being 
passed. 


GET Module IGGO19DJ (SYSIN/SYSOUT): Module IGGO19DJ interfaces 
with a job entry subsystem to provide the next record from the 
system input stream to the processing program. 


The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 


Input (% or DATA specified on the DD statement) 
and the DCB specifies: 

GET 

Simple buffering 

Locate or move operating mode 

Fixed, undefined, or variable-length record format 


The module consists of a GET routine and a RELSE routine. See 
Diagram M for an overview of the SAM-SI processing for QSAM. 


This module also contains a PUT routine as described in "Simple 
Buffering PUT Routines" (see Figure % on page 26). The GET 
routine operates as follows: 


° It receives control when a GET macro instruction 1s 
encountered in the processing program. 


e It determines the type of get request and initializes the 
input area address in the request parameter list (RPL). For 
move mode, RPLAREA contains the address of the processing 
program work area (the contents of register 0 on entry); for 
locate mode, RPLAREA contains the address of a buffer from 
the DCB buffer pool. 


e If the GET request is for variable-length records, RPLAREA 
1s adjusted to allow space for a record descriptor word 
C(RDW) in the first four bytes of the work area. 


@ It passes control to the job entry subsystem (JES) for data 
transfer by issuing a GET macro instruction against the RPL. 
The return code in register 15 is tested upon return from 
the JES. 


° For an exceptional condition, RPLRINCD and RPLERRCD are 
examined to determine the type of failure. 


e If end-of-data is detected, the appropriate registers are 
loaded and saved, then an unconditional branch is taken to 
the synchronizing module, IGGO19AQ (see Figure 11 on 
page 60), for EODAD and concatenation processing. 


° If an error condition is detected, control is passed to the 
error-processing module, IGGO19AH (see Figure 12 on 
page 67). If control is returned to this routine and DCB 
EROPT is SKIP, the GET request is reissued. Otherwise, 
control is returned to the processing program. 


e For normal completion, it places the record address from the 
RPLAREA field into register 1. If the SAM request was for a 
Variable-length record, the record descriptor word field is 
created, by using the value returned in the RPLRLEN field. 
Registers are restored and control is returned to the 
processing program. 
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The RELSE routine receives control when a RELSE macro 
instruction is issued. Module IGG019DJ does no processing for 
this macro instruction. Control is returned to the processing 
program by IGGO19DJ. 


GET Module IGGO19FB: Module IGGO19FB presents the processing 
program with the address of the next variable-length record. 
The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 


Input 

and the DCB specifies: 
GET 
Simple buffering 
Locate operating mode 


Variable-length format Cunblocked or blocked) record, 
spanned 


The module consists of a GET routine and a RELSE routine. 
The GET routine operates as follows: 


e It receives control when the processing program issues a GET 
macro instruction. 


e It determines the address of the next record segment and 
tests for an EOB condition to determine whether a buffer is 
ready for refilling and also whether a new buffer is needed. 
When the OPEN executor primes the buffers, the executor 
schedules all buffers except one and sets an EOB condition. 


e If no EQB condition exists, the routine presents the address | 
of the next record segment to the processing program. 


e If an EOB condition exists or if a DOS-type null segment 
Cwhere the high-order bit of the record descriptor word is 
on) is encountered, the routine issues a BALR instruction to 
pass the current buffer to the EOB routine. The EOB routine 
schedules the buffer for refilling. The GET routine issues 
another BALR instruction to obtain a new buffer through the 
input-synchronizing and error-processing routine, module 
IGGO19AQ. The GET routine then determines if the EOB 
routine was entered because of a RELSE macro instruction. 

If so, the GET routine checks the first record segment to 
determine if it iS a member of a previous logical record. 
If it is, the GET routine continues to look for a record 
segment that is not a member of a previous record. Such a 
segment is considered the first record of the new buffer. 
(Note, however, that this could cause reentry into the EOB 
routine and result in one or more entire blocks being 
skipped.) The GET routine then presents the address of the 
first record segment of the new buffer to the processing 
program and returns control to the processing program. 


The RELSE routine causes an EOB condition by setting the 
DCBRECAD and DCBEOBAD fields so that they are equal. It then 
sets the high-order 4 bits of DCBRECAD to 1's and returns 
control to the processing program. 
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GET 


Module IGGO19FD: Module IGGOI19FD moves the next 


variable-length record to the work area. The OPEN executor 
selects and loads this module if the OPEN parameter list 
specifies: 


and 


The 
The 
The 


Input 

the DCB specifies: 
GET 

Simple buffering 
Move operating mode 


Variable-length Cunblocked or blocked) record format, 
spanned 


DCB does not, however, specify the CNTRL macro instruction. 
module consists of a GET and a RELSE routine. 
GET routine operates as follows: 


It receives control when the processing program issues a GET 
macro instruction. 


It tests for an EOB condition to determine whether a new 
full buffer is needed. When the OPEN executor primes the 
buffers, the executor also sets an EOB condition for the 
first GET macro instruction. 


If an EOB condition exists, the routine issues a BALR 
instruction to obtain a new buffer through the 
input-synchronizing and error-processing routine, module 
peeee ee. and moves the first record segment to the user's 
work area. 


If no EOB condition exists, the routine moves the first 
record segment to the user's work area. 


If a DOS-type null segment (where the high-order bit of the 
record descriptor word is on) is encountered, that buffer is 
rescheduled by passing control to the EOB routine. 
Processing continues as if an EOB condition exists as 
described above. 


If more record segments are required, the routine moves 
them, without the segment descriptor words, to the part of 
the user's work area that is contiguous with the previous 
record segment. The routine also updates the DCBLRECL field 
and the logical-record-length field in the record descriptor 
word (RDW) in the user's work area. These fields then 
reflect the total logical-record length after additional 
record segments have been moved. This procedure continues 
until the routine has moved the entire logical record. An 
EOB condition can occur during this procedure. 


When ISO/ANSI/FIPS spanned records are being processed, the 
address of the starting byte must be adjusted in order to 
ignore the unused byte resulting from the conversion of the 
5-byte ISO/ANSI/FIPS segment control word (SCW) to the 
4-byte IBM segment descriptor word (SDW). 


The routine tests for a new EOB condition to determine 
whether a buffer is empty and ready for refilling. For 
unblocked records, the EQB condition exists after every 
entry to the GET routine. 


If no new EQB condition exists, the routine returns control 
to the processing program. 
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e If a new EOB condition exists, the routine issues a BALR 
instruction to pass the present buffer to the EOB routine. 
The EOB routine then schedules the buffer for refilling and 
returns control to the processing program. ) 


The RELSE routine sets the high-order 4 bits in the DCBRECAD 
field to l's so that the GET routine passes the buffer for 
refilling and so that the next time the GET routine is entered, 
it obtains a new full buffer. After obtaining the new buffer, 
the GET routine interrogates the segment descriptor word (SDW) 
of the first record segment. The routine thus determines if the 
segment is the first segment of a record. If it is, bit 6 of 
the third byte of the SDW will be 0. If not, the GET routine 
skips to the next SDW and checks it. This procedure continues 
until an acceptable segment is found. Then the GET routine 
processes the GET macro instruction in the usual way. The 
hela can result in one or more additional blocks being 
passed. 


GET Module IGGO19FF: Module IGGO19OFF moves the data portion of 
the next variable-length record to the work area. The OPEN 
executor selects and loads this module if the OPEN parameter 
list specifies: 


Input 

and the DCB specifies: 
GET 
Simple buffering 
Data operating mode 


Variable-length Cunblocked or blocked) record format, 
spanned 


The DCB does not, however, specify the CNTRL macro instruction. | F 
The module consists of GET and RELSE routines. 
The GET routine operates as follows: 


e It receives control when the processing program issues a GET 
macro instruction. 


e It tests for an EOB condition to determine whether a new 
full buffer is needed. When the OPEN executor primes the 
buffers, the executor also sets an EOB condition for the 
farst GET macro instruction. 


e If an EOB condition exists, the routine issues a BALR 
instruction to obtain a new buffer through the 
input-synchronizing and error-processing routine, module 
IGGO19AQ, and moves the data portion of the first record 
segment to the work area. 


e If no EQB condition exists, the routine moves the data 
portion of the first record segment to the user's work area. 


e If more segments are required, the routine moves them, 
without the segment descriptor word, to the part of the 
user's work area that is contiguous with the previous record 
segment. The routine also updates the DCBLRECL field to 
reflect the current total logical record length. This 
procedure continues until the routine has moved the entire 
logical record. An EQB condition can occur during this 
procedure. 


e When ISO/ANSI/FIPS spanned records are being processed, the 
address of the starting byte must be adjusted one position 
in order to ignore the unused byte resulting from the ) 
conversion of the 5-byte ISO/ANSI/FIPS segment control word 
CSCW) to the G-byte IBM segment descriptor word (SDW). 
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e The routine tests for a new EOB condition to determine 
whether a buffer is ready for refilling. For unblocked 
records, the condition exists after every entry to this 
routine. 


e If no new EOB condition exists, the routine returns control 
to the processing program. 


e If a new EOB condition exists, the routine issues a BALR 
instruction to pass the present buffer to the EOB routine. 
The EOB routine then schedules the buffer for refilling and 
returns control to the processing program. 


The RELSE routine sets the high-order 4 bits in the DCBRECAD 
field to ls so that the GET routine passes the buffer for 
refilling and so that the next time the GET routine is entered, 
it obtains a new full buffer. After obtaining the new buffer, 
the GET routine interrogates the segment descriptor word (SDW) 
of the first record segment. The routine thus determines if the 
segment is the first segment of a record. If it is, bit 6 of 
the third byte of the SDN will be 0. If not, the GET routine 
skips to the next SDW and checks it. This procedure continues 
until an acceptable segment is found. Then the GET routine 
processes the GET macro instruction in the usual manner. The 
procedure can result in one or more additional blocks being 
passed. 


Parallel Input Processing Routine 


The QSAM parallel input processing routine provides to the user 
an input record from a queue of equal priority, sequential data 
sets. The routine supports input processing; simple buffering; 
locate or move mode; and fixed-length, variable-length, or 
undefined-length records. Track overflow and spanned records 
are not supported. 


Parallel Input Processing Module IGGO19JD: Module IGG0O19JD uses 
the parallel data address block CPDAB) to maintain a list of 
data control blocks, addresses, and a corresponding wait 
parameter list of ECB addresses. DCB addresses are added to the 
PDAB by the OPEN routines and are removed by the CLOSE routines. 
A count of the maximum number of DCB entries allowable is 
assembled in the PDAB. 


The address of the DCB entry from which the previous record was 
provided is obtained from the PDAB, and each succeeding DCB 
entry 1s processed until an available logical record is found, 
or until each data set is found to have reached an EOB 
condition, and the next block of data is not available. 


An EOB condition is detected when DCBEOBAD is greater than or 
equal to DCBREGAD for the move mode, when DCBEOBAD is greater 
than or equal to DCBECAD plus DCBLRECL for the locate mode, or 
when the first 4 bits of the DCBIOBA are set to ones for the 
RELSE function. 


The next block is not available when the ECB for the next IOB is 
not posted as complete. The location of the next IQOB is 
obtained from the current IOB - 8, and the location of its 
corresponding ECB is obtained from IOB + 4. 


When the ECB is not posted as complete, its address is stored in 
the wait parameter list in the PDAB. When no record is 
available from the queue of data sets, a WAIT is issued for the 
list of ECB addresses in the PDAB. When control is returned, 
the completed event is located from the list of ECB addresses. 


When a record is available, the DCB address and the user's data 
area address are passed to the DCB get routine. 
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Update Mode GET Routine 


that it shares its buffers, as well as the DCB and the IOBs, 
with the update mode PUT routine. The QSAM update mode of 
access uses simple buffering in which the buffer is defined by 
the start and end addresses of the buffer. 


The update mode GET routine differs from other GET routines in ) 


If a PUTX macro instruction addresses a record ina block, the 
update mode GET routine determines, when the end of the block is 
reached, that that buffer is to be emptied (that is, that the 
block is to be updated) before being filled with a new block of 
data. If no PUTX macro instruction addresses a record ina 
block, the update mode GET routine determines, when the end of 
the block is reached, that the buffer is to be refilled only; 
that is, that the last block need not be updated and the buffer 
can be filled with a new block of data. These characteristics 
of the buffer—simple buffering, sharing the buffer with the PUT 
routine, and emptying the buffer before refilling—influence the 
manner in which the update mode GET routine determines: 


e The address of the next record 
° Whether the buffer can be scheduled 
e Whether a new buffer 1S needed 


e Whether to schedule the buffer for empty-and-refill or for 
refill-only 


The first three of these determinations are made at every pass 
through the routine. The last determination is made after the 
routine establishes that the buffer can be scheduled. 


If the records are unblocked, the address of the next record is 
the address of the next buffer. 


If the records are blocked, the address of the next record is ) 
found by adding the record length, found in the DCBLRECL field, 
to the value in the DCBRECAD field. 


Whether the buffer can be scheduled and whether a new buffer is 
needed are determined by whether an end-of-block condition 
exists. In the update mode, one determination that an 
end-of-block condition exists causes both the last buffer to be 
scheduled and a new buffer to be sought. An end-of-block 
condition exists for unblocked records at every pass through the 
routine; for blocked records it exists if the values in the 
DCBRECAD (the address of the current record) and the DCBEOBAD 
(the address of the end of the block) fields are equal. To 
cause scheduling of the buffer, the GET routine passes control 
to the end-of-block routine. To obtain a new buffer, the GET 
routine passes control to the update-synchronizing and 
error-processing routine, module IGGOI9AF. 


To cause scheduling of the buffer for either empty-and-refill or 
refill-only, the update mode Get routine sets the IOBNFLG1 flag 
to indicate whether an update (that is, write and refill) or a 
read (that is, a refill) is to take place. The “empty and 
refill™ operation writes out of the buffer and reads into that 
same buffer. When the end-of-block routine schedules the IOB 
for the buffer to be processed by the SIO/pagefix appendage, 
that appendage inspects the IOB flags. The SI0/pagefix 
appendage builds an appropriate channel program, based on the 
IOB flags: an update write of the buffer followed by a read into 
the same buffer, or a read into the buffer. 


Whether to schedule the buffer for empty-and-refill or for 
refill-only depends on whether the block is to be updated. If 
the block is to be updated, the PUTX routine will have set the 
update flag on in the IOB; otherwise, the flag is off. To 
schedule the buffer for empty-and-refill, the GET routine leaves 
the update flag on. To schedule the buffer for refill only, the 
GET routine sets the read flag on. The end-of-block condition 
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that triggers this processing also causes control to pass to the 
end-of-block routine, module IGGO19TV, for issuing the EXCPVR 
macro instruction and to the update-synchronizing— 
and-error-processing routine, module IGGOL9SAF, for obtaining the 
next buffer. 


The PUTX routine sets the update flag in the IOB and returns 
control to the processing program. The RELSE routine sets an 
end-of~block condition and returns control to the processing 
program. 


The OPEN executor primes (that is, schedules for filling) all 
the buffers except one if QSAM is used with a DCB opened for 
update. The OPEN executor also sets an end-of-block condition; 
the first time the update mode GET routine gains control, it 
processes this condition in its normal manner. 


Figure 3 on page 21 shows the update mode GET routines and the 
access conditions that must be specified in the DCB to select a 
particular routine. The OPEN executor loads the selected 
routine and places its address into the DCBGET field of the DCB. 


Access Method Options Selections 

Update, GET X X X X X X X 
Fixed-length record format X 

Variable-length record format X X X X 
Undefined-length record format X 

Blocked record format X X X 
Unblocked record format X X X 


Locate operating mode 

Logical record interface 

GET Modules 

IGGO1L9AE? AE AE AE AE AE 

IGGO1OBN BN BN 


Figure 3. Module Selector—Update-Mode GET Modules 


Note to Figure 3: 
7 This module also carries the Update-Mode PUTX routine 
GET Update Module IGGOI19AE: Module IGGO19AE presents the 
processing program with the next input record and flags the IOB 
if the block is to be updated. The OPEN executor selects and 
loads this module if the OPEN parameter list specifies: 

UPDATE 
and the DCB specifies: 

GET 


The module consists of a GET routine, a RELSE routine, and a 
PUTX routine. 
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The GET routine operates as follows: 


e It receives control when a GET macro instruction is | 
encountered in a processing program. 


e It tests for an end-of-block condition to determine whether 
the buffer can be scheduled and if a new buffer is needed. 
When the OPEN executor primes the buffers, it schedules all 
buffers except one and sets an end-of-block condition. 


e If no end-of-block condition exists, it presents the address 
of the next record, and returns control to the processing 
program. For variable-length, format—-D, and 
undefined-length records, it also determines the length of 
the record and places it in the DCBLRECL field in the DCB. 


e If an end-of-block condition exists and if the buffer is to 
be emptied and refilled, and: 


_ If entry 1s not from CLOSE or FEOV, the GET routine 
passes control to the end-of-block routine to cause 
scheduling of the buffer. 


— If entry is from CLOSE or FEOV, the GET routine sets the 
IOB to indicate "write-only.™ The GET routine then 
passes control to the end-of-block routine to cause 
scheduling of the buffer. 


e On return of control from the end-of-block routine, the GET 
routine passes control to the update-synchronizing and 
error-processing routine, module IGGOI19AF, to obtain a new 
full buffer. 


e On return of control from the synchronizing routine, the GET 


routine updates the DCBLRECL field, presents the address of 
the next record, and returns control to the processing 


program. ) 
The 


RELSE routine operates as follows: 


® It receives control when a RELSE macro instruction is 
encountered in the processing program. 


@ It sets an end-of-block condition. 
e It returns control to the processing program. 
The PUTX routine operates as follows: 


e It receives control when a PUTX macro instruction 1s 
encountered in the processing program. 


e It sets the update flag in the IOB to show that the buffer 
1s to be emptied before being refilled. 


e It returns control to the processing program. 
GET Update Module IGGO19BN: Module IGGO19BN presents the 
processing program with the next input record, flags the IOB if 
the block or a spanned record is to be updated (that is, emptied 
and refilled), and sets the IOB to address a QSAM update channel 
program for either empty-and-refill or refill-only. The OPEN 
executor selects and loads this module if the OPEN parameter 
list specifies: 

Update 
and the DCB specifies: 

GET 

Locate operating mode 2 


Variable-length spanned (blocked or unblocked) record format 


22 MVS/XA SAM Logic LY26-3967-0 © Copyright IBM Corp. 1977,1985 


Contains Restricted Materials of IBM 
Licensed Materials —— Property of IEM 


Logical record interface 


The module consists of a GET routine, a RELSE routine, and a PUT 
routine. 


The GET routine operates as follows: 


It receives control when a GET macro instruction 15s 
encountered in a processing program. 


It tests whether EQV has occurred while processing a spanned 
record. 


If EQV has occurred and the record is not to be updated, it 
sets a bit in the DCBIOBAD field of the DCB to indicate that 
the old DEB, whose address was saved by the EQOV routine, can 
be freed. I[t then issues an FEOV macro instruction to free 
the virtual storage assigned to this DEB. 


If EOV has occurred and the record is to be updated, it 
restores the address to read back the block that contains 
the beginning segment of the record. The current IOB is 
modified to function as if only one IOB exists. It then 
issues an FEOV macro instruction to cause the previous 
volume to be mounted and the data management count to be 
reset. 


On return of control from the FEOV routines, it operates as 
if no EOV has occurred. 


If EQV has not occurred, it continues on to the next step. 
It tests whether a spanned record is to be updated. 


If it is not to be updated, it obtains the length of the 
previous record segment from the DCBLRECL field in the DCB, 
or the SDW if it was a spanned record. 


It determines the address of the next record segment and 
tests for an EOB condition to determine whether the buffer 
can be scheduled and if a new buffer is needed. (When the 
OPEN executor primes the buffers, it schedules all buffers 
except one and sets an EOB condition. ) 


If no EOB condition exists, it tests the next record segment 
for a complete record. 


If it is a complete record, the routine presents the address 
of the next record, determines the length of the record, 
places it in the DCBLRECL field, and returns control to the 
processing program. 


If it is the first segment of a spanned record, the routine 
saves the track address of the block that contains this 
segment, the position of the segment in the block, and the 
alignment of the segment in the record area. The routine 
obtains the track address of the block by copying the 
IOBSEEK associated with the next IOB, the position of the 
segment by subtracting the buffer address from the current 
record address, and the alignment of the segment by using 
the low-order byte of the current record address. The 
routine then moves the first segment to the record area and 
sets the EOB condition. It determines the address of the 
next record, whether a new buffer can be scheduled, and if a 
new buffer is needed. 


If 1t 18 a segment that follows another segment of a spanned 
record, the routine combines the segment (without the SDW) 
contiguous with the previous segment in the record area. 

The count in the record descriptor word (RDW) in the record 
area 1S updated to include the total count. This process 
continues until the entire logical record has been 
assembled. An EOB condition may occur during this process, 
in which case the routine determines the address of the next 
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record, whether a new buffer can be scheduled, and if a new 

buffer 1s needed. When the entire logical record has been 

assembled, the routine sets the spanned-record flag in the ) 
IOB, presents the address of the assembled record in the 

record area, places the length of the record (which is 

obtained from the RDW in the record area) in the DCBLRECL 

field, and returns control to the processing program. 


e If an EOB condition exists, control is passed to the 
end-of-block routine to schedule a buffer. 


e On return of control from the EOB routine, the routine 
passes control to the update-synchronizing and 
error-processing routine, module IGGO19BQ, to obtain a new 
full buffer. 


e On return of control from the synchronizing routine, the 
routine interrogates the next record segment and saves the 
track address of the block that contains the record, the 
position of the segment in the block, and the alignment of 
the segment in the record area. The routine then moves the 
first segment to the record area and sets the EOB condition. 


e If a spanned record is to be updated, the routine restores 
the track address to read back the block that contains the 
beginning segment of the record. The current IOB is 
modified to function as if only one IOB exists. 


The routine next tests to determine if any previous I/0 
operation has completed. If no previous I/0 operation has 
completed, the routine issues WAIT against the ECB in the ICQE. 


The routine next tests to determine if the "EXCPVR needed" flag 

1s on and, if not, sets the “end of file™ and "EXCPVR needed" 

flags on. The routine turns off the "spanned record" flag in 

the IOB, sets the IOB to READ-ONLY and SEGMENT, and passes 

control to the end-of-block routine. ) 


e On return of control from the EOB routine, the routine 
passes control to the update-synchronizing and 
error-processing routine, module IGGO19BQ, to obtain a new 
full buffer. 


e On return of control from the synchronizing routine, the 
routine repositions the pointers to the beginning segment of 
the record and moves that portion of the record from the 
record area to the segment in the buffer. (CA count is Kept 
of the number of bytes of data moved. ) 


e If more segments are to be updated, the routine moves that 
portion of the record from the record area to the succeeding 
segments in the buffer. (The total count of the data moved 
1s updated with each move.) This process continues until 
the entire logical record has been segmented. If an EOB 
condition occurs during this process, the routine tests 
whether a spanned record is to be updated. When the entire 
logical record has been segmented, the routine turns off the 
segment flag in the IOB, restores the link field in the IOB, 
obtains the address of the next record segment, and 
determines whether a new buffer can be scheduled and 1s 
needed. 


When the entire logical record has been segmented (except for 
the last segment in the current buffer, which has not been 
updated), the routine turns off the "segment" flag in the IOB, 
restores the link field in the IOB, and tests the "end of data™ 
flag to determine whether the "EXCPVR needed" flag was off when 
I70 was quiesced. If the “end of data™ flag is on, the routine 
sets the IOB's "write flag" and passes control to the 
end-of-block routine to cause an update write without a refill 
read for the buffer containing the last segment. When the ) 
end-of-block routine returns, the GET routine sets the IOB flags 
to indicate "updating not required." The ICQE's “EXCPVR needed" 
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PUT ROUTINES 


flag is also zeroed. If the "end of data" flag is off, the 
"EXCPVR needed" flag is set on. 


The RELSE routine operates as follows: 


e It receives control when a RELSE macro instruction,is 
encountered in the processing program. 


° It sets an EOB condition. 
e It sets a release bit in the DCBRECAD field of the DCB. 
e It returns control to the processing program. 


The RELSE routine sets a release bit in the DCB so that the GET 
routine passes the buffer for refilling and obtains a new full 
buffer the next time the routine is entered. After obtaining 
the new buffer as a result of RELSE, the GET routine 
interrogates the SDW of the first segment to determine if it is 
the first segment of a record (bit 6 in the third byte of the 
SDW must be 0); if not, the routine skips to the next SDW and 
checks it. This continues until an acceptable segment is found. 
The routine then processes the GET in the usual way. This 
procedure may result in one or more additional blocks being 
passed. 


The PUTX routine operates as follows: 


® It receives control when a PUTX macro instruction is 
encountered in the processing program. 


° It sets the update flag in the IOB to show that the buffer 
is to be emptied before being refilled. 


cS) It returns control to the processing program. 


Note: When a RELSE macro instruction is issued after a spanned 
record is written with a PUTX macro instruction, this routine 
branches to the GET routine to write the last record (the 
spanned record) and then releases the block that contains the 
last segment of that spanned record. 


Some of the general characteristics of the PUT routines are 
described in Diagram B, "QSAM GET and PUT Routines." A specific 
PUT routine is selected for each data set on the basis of access 
method options specified by the processing program. The options 
examined are in the OPEN statement parameter list and the data 
set attributes described in the DCB. 


The OPEN executors (see Diagram D, "SAM OPEN Executors™) select 
ae load the modules that are required for a particular data 
set. 


The access method options that determine which PUT modules are 
selected when Simple buffering is used are described in Figure 4 
on page 26. For update mode, the PUTX routine resides in the 
GET module for update mode. See Figure 3 on page 21 Cunder 
"Update Mode GET Routine") for information about the update mode 
PUTX routine. 


For information about the flow of control through the QSAM 
routines, see Diagram F, "QSAM Flow of Control.® 
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Access Method Options Selections 
) 


Output, PUT/PUT 


Locate operating mode X X X 


Move operating mode 
Data operating mode 


Fixed-length record 


format X X 


Undefined-length record format X X 


Variable-length or record format-—D X X X X X 


Spanned records 


Logical record interface X 


SYSOUT specified on 
PUT Modules 
IGGO19ATI 
IGGO1IAJ 
IGGO19AK 
IGGO19AL 
IGGO19BP 
IGGO19DJ 
IGGO19FG 
IGGO19FJ 
IGGO19FL 


DD statement X 


AI AI 
AJ 
AK AK 
AL 
BP 
DJ ~ 
FG 
FJ 
FL 


Figure 4. Module Selector—Simple-Buffering Put Modules 


Simple-Buffering PUT Routines 


26 MVS/XA SAM Logic 


Simple-buffering PUT routines use buffers whose ending address 
and the address of the next or current record are pointed to by 
the DCB. The address of the next record is in the DCBRECAD 
field (address of the next record); the ending address is in the 
DCBEOBAD field Caddress of the end of the buffer). In each pass 
through a routine, it determines: 


e The address of the next buffer segment 
e Whether an output buffer is to be scheduled for emptying 
e Whether a new empty buffer is needed 


These three determinations are made at every pass through a PUT 
routine. 


If the records are unblocked, the address of the next available 
buffer segment is always that of the next buffer. ) 





If the records are blocked, a PUT routine determines the address 
of the next available buffer segment by adding the length of the 
last record to the address of the last buffer segment. The 
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address of the last buffer segment is in the DCBRECAD field of 
the data control block (DCB). If the records are fixed-length 
blocked records, the length of each record is in the DCBLRECL 
field. If the records are variable-length blocked records, the 
length of each record is in the length field of the record 
itself. 


A PUT routine determines that a buffer is ready for emptying and 
a new empty buffer is needed by establishing that an 
end-of-block CEQB) condition exists. 


If an output buffer is to be scheduled for emptying, a PUT 
routine passes control to an end-of-block routine, to cause the 
present buffer to be scheduled for output. 


If a new empty buffer is needed, a PUT routine obtains a new 
buffer by passing control to the 
output-synchronizing-and-error-processing routine, module 
IGGO1LOAR. For a buffer that was emptied without error, the 
synchronizing routine updates the DCBIOBA field (thus pointing 
to the new buffer) and returns control to the PUT routine. The 
PUT routine updates the DCBRECAD field by inserting the starting 
address of the buffer from the channel program associated with 
the new IOB. To update the DCBEOBAD field, the routine adds the 
length of the block stated in the DCBBLKSI field to the buffer 
starting address. These two fields, DCBRECAD and DCBEOBAD, 
define the available buffer. 


An EOB condition is established by different criteria for 
different record formats and operating modes. 


For unblocked records, an EOB condition exists after each record 
is placed in the buffer. If the move operating mode is uSed, a 
PUT routine establishes that an EOB condition exists for the 
present buffer after the routine has moved the record into the 
buffer. If the locate operating mode is used, a PUT routine 
establishes that an EOB condition exists for the present buffer 
on the next entry to the routine, after the processing program 
has moved the record into the buffer. 


For blocked records, the time that an EOB condition occurs 
depends on the record format. 


For fixed-length blocked records, an EOB condition occurs when 
the DCBRECAD field equals the DCBEOBAD field. The DCBRECAD 
field shows the address of the segment for the next record. The 
DCBEOBAD field shows a value equal to one more than the address 
of the end of the buffer. If the move operating mode is used, 
the PUT routine moves the last fixed-length record into the 
buffer, updates the DCBRECAD field, and establishes that an EOB 
condition exists for the present buffer. If the locate 
operating mode is used, the processing program moves the last 
fixed-length record into the buffer. On the next entry to the 
PUT routine, the routine updates the DCBRECAD field and 
establishes that an EOB condition exists for the present buffer. 


For variable-length blocked records, unspanned, an EOB condition 
occurs when the length of the next record exceeds the buffer 
balance; that is, when the record length exceeds the space 
remaining in the buffer. If the user has specified move mode 
for unspanned records, the PUT routine establishes that an EOB 
condition exists when the record length stated in the first word 
of the record exceeds the buffer balance. If the user has 
specified locate mode for unspanned records, the PUT routine 
establishes that an EOB condition exists when the value stated 
in the DCBLRECL field exceeds the buffer balance. 


For variable-length blocked records, spanned, the next record is 
segmented. The first record segment is used to fill the buffer 
when 5 or more bytes remain in the buffer. When fewer than 5 
bytes remain in the buffer, an EOB condition occurs. 


For ISO/ANSI/FIPS variable-length spanned records, five bytes 
are used for the segment control word (SCW). An extra byte is 
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saved at the beginning of each segment. The succeeding four 

bytes are processed in the normal manner, but the end-of-block 

routine uses the extra byte when it converts the IBM 4G-byte > 
segment descriptor word (SDW) to the 5-byte ISO/ANSI/FIPS 

segment control word (SCW). 


For variable-length spanned records using extended logical 
record interface (XLRI), the 3-byte length field is used to 
specifiy the exact length in bytes instead of the normal 2-byte 
length field. The DCB LRECL specifies the maximum logical 
record length in multiples of 1024. 


A TRUNC routine sets an end-of-block condition to empty the 
buffer. This end-of-block condition is processed so that the 
next entry to the PUT routine permits it to operate as usual. 
Successive entries to a TRUNC routine without intervening 
entries to a PUT routine cause the TRUNC routine to return 
control without performing any processing. 


To permit a PUT routine to operate normally when it is entered 
for the first time, the OPEN executor initializes the DCB fields 
DCBRECAD and DCBEOBAD. For an output data set using QSAM and 
Simple buffering, the values entered in these fields depend on 
the operating mode. For locate mode routines, it sets them to 
show the beginning and end of the first buffer; for move mode 
routines, it sets an end-of-block condition. 


Figure 4 on page 26 lists the PUT routines and the conditions 
that cause a particular routine to be read. The OPEN executor 
selects one of the routines, loads it, and places its address 
into the DCBPUT fields. 
PUT Module IGGO19AI: Module IGGO1L9JAI presents the processing 
program with the address of the next available buffer segment 
for a fixed-length or an undefined-length record. The OPEN 
executor selects and loads this module if the OPEN parameter 
list specifies: ) 

Output 
and the DCB specifies: 

PUT 

Simple buffering 

Locate operating mode 


Fixed-length Cunblocked, blocked or blocked standard) or 
undefined-length record format 


The module consists of a PUT routine and a TRUNC routine. 
The PUT routine operates as follows: 


° It receives control when a PUT macro instruction is 
encountered in a processing program. 


° It determines the address of the next buffer segment using 
the value in the DCBLRECL field. 


e It tests for an EOB condition to determine whether a buffer 
is full and ready for emptying and if a new empty buffer is 
needed. 

e If no EOB condition exists, it presents the address of the 


next buffer segment to the Processing program and returns 
control to the processing program. 


pass the present buffer to the end-of-block routine. The 
Put routine issues another BALR instruction to obtain a new 
buffer through the output-—synchronizing-and-error-processing 
routine, module IGGO19AR, and determines the address of the 


° If an EOB condition exists, it issues a BALR instruction to ) 
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first segment of the new buffer. The PUT routine then 
presents this address and returns control to the processing 
program. 


The TRUNC routine causes an EOB condition by setting the 
DCBRECAD and DCBEQDAD fields so that they are equal; it then 
returns control to the processing program. 


PUT Module IGGO19AJ: Module IJGGO19AJ presents the processing 
Program with the address of the next available buffer segment 
for a variable-length or format-D record. The OPEN executor 
selects and loads this module if the OPEN parameter list 
specifies: 


Output 

and the DCB specifies: 
PUT 
Simple buffering 
Locate operating mode 


Variable-length or record format D Cunblocked or blocked), 
unspanned 


The module consists of a PUT routine and a TRUNC routine. 
The PUT routine operates as follows: 


e It receives control when a PUT macro instruction is 
encountered in a processing program. 


e It determines the address of the next buffer segment using 
the length field of the record moved by the processing 
program into the buffer segment located last. 


e It tests for an EOB condition to determine whether a buffer 
is ready for emptying and if a new empty buffer is needed, 
by using the value placed into the DCBLRECL field by the 
processing program. 


e If no EQB condition exists, it tests for blocked records. 


e If blocked records are specified, it presents the address of 
the next buffer segment to the processing program and 
returns control to the processing program. 


e If an EOB condition exists or if unblocked records are 
specified, it issues a BALR instruction to pass the present 
buffer to the end-of-block routine. The PUT routine issues 
another BALR instruction to obtain a new buffer through the 
output-synchronizing-and-error-processing routine, module 
IGGO1OAR, and determines the address of the first segment of 
the new buffer. The PUT routine then presents this address 
to the processing program and returns control to the 
processing program. 


The TRUNC routine causes an EOB condition by setting the 
DCBRECAD and DCBEOBAD fields so that they are equal; it then 
returns control to the processing program. 


PUT Module IGGO19AK: Module IGGO19AK moves the present 
fixed-length or undefined-length record into the next available 
buffer segment. The OPEN executor selects and loads this module 
if the OPEN parameter list specifies: 

Output 
and the DCB specifies: 


PUT 
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Simple buffering 


Move operating mode JY 


Fixed-length Cunblocked, blocked, blocked standard) or 
undefined-length record format 


The module consists of a PUT routine, a PUTX routine, anda 
TRUNC routine. 


The PUT routine operates as follows: 


e It receives control when a PUT macro instruction is 
encountered in a processing program. 


e If an EOQB condition exists, it issues a BALR instruction to 
obtain a new buffer through the 
output-synchronizing-and-error-processing routine, module 
IGGO19AR, and then moves the record from the work area into 
the first buffer segment. 


e If no EOB condition exists, it moves the record from the 
work area into the next buffer segment. 

e It tests for blocked records. 

e If blocked records are specified, it determines the address 


of the next segment and tests for a new EOB condition. 


e If unblocked records are specified or if a new EOB condition 
exists, it issues a BALR instruction to pass the present 
buffer to the end-of-block routine and then returns control 
to the processing program. 


e If no new EOB condition exists, it returns control to the 


processing program. ) 
The : 


PUTX routine operates as follows: 


e It receives control when a PUTX macro instruction is 
encountered in a processing program. 


e It obtains the DCBRECAD value of the input DCB, which points 
to the present record in the input buffer. 


e It moves the DCB's LRECL field from the input DCB to the 
output DCB. 


e It enters the PUT routine at the start. The PUT routine 
then uses the input DCBRECAD value in place of the work area 
address. 


The TRUNC routine operates as follows: 


e It receives control when a TRUNC macro instruction is 
encountered in a processing program. 

e It simulates an EOB condition. 

e It issues a BALR instruction to pass the present buffer to 


the end-of-block routine. 


e On return of control from the end-of-block routine, it 
returns control to the processing program. 


PUT Module IGGO19AL: Module IGGO19OAL moves the present 
variable-length or format-D record into the next available 
buffer segment. The OPEN executor selects and loads this module 
if the OPEN parameter list specifies: 


Output 





and the DCB specifies: 
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PUT 

Simple buffering 
Move operating mode 


Variable-length or record format-D Cunblocked or blocked), 
unspanned 


module consists of a PUT routine, a PUTX routine, and a 


TRUNC routine. 


The 


The 


The 


PUT 


PUT routine operates as follows: 


It receives control when a PUT macro instruction is 
encountered in a processing program. 


It determines the address of the next buffer segment and 
compares the length of the next record with the remaining 
buffer capacity. 


If the record fits into the buffer, it moves the record, 
updates the length field of the block, and tests for blocked 
records. 


If blocked records are specified, it returns control to the 
processing program. 


If the record does not fit into the buffer or if unblocked 
records are specified, it issues a BALR instruction to pass 
the present buffer to the end-of-block routine. It issues 
another BALR instruction to obtain a new buffer through the 
output-synchronizing-~and-error-processing routine, module 
IGGO19AR. The PUT routine then moves the record from the 
work area to the buffer, updates the block-length field, and 
returns control to the processing program. 


PUTX routine operates as follows: 


It receives control when a PUTX macro instruction is 
encountered in a processing program. 


It obtains the DCBRECAD value of the input DCB, which points 
to the present record in the input buffer. 


It enters the PUT routine at the start. The PUT routine 
then uses the input DCBRECAD value instead of the work area 
address. 


TRUNC routine operates as follows: 


It receives control when a TRUNC macro instruction is 
encountered in a processing program. 


It issues a BALR instruction to pass control of the present 
buffer to the end-of-block routine. 


It issues another BALR instruction to obtain a new buffer 
through the output-—synchronzing-and-error-processing 
routine, module IGGOLOAR. 


It determines the address of the first segment of the new 
buffer and then returns control to the Processing program. 


Module IGGO19BP: Module IGGO19BP presents the Processing 


Program with the address of the next available buffer segment 


for 


a variable-length record. The OPEN executor selects and 


loads this module if the OPEN parameter list specifies: 


and 


Output 
the DCB specifies: 
PUT 
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Simple buffering 

Locate operating mode 

Variable-length spanned Cunblocked or blocked) record format 
Logical record interface 

module consists of a PUT routine and a TRUNC routine. 

PUT routine operates as follows: 


It receives control when a PUT macro instruction is 
encountered in a processing program. 


If extended logical record interface (XLRI) is used, the 
logical record length field is three bytes long for logical 
records that must be spanned. The DCB LRECL value specifies 
the maximum logical record length in multiples of 1024. 


It tests whether a spanned record was to have been written. 


If the last record written was not a spanned record, it 
determines the address of the next buffer segment using the 
length field of the last record segment moved by the 
processing program. 


It checks the value placed into the DCBLRECL field to 
determine if a buffer is ready for emptying and if a new 
empty buffer is needed. If control is returned from the 
user and the prior record does not require segmentation (a 
buffer location is used instead of a record area), the SDN 
must be changed from the three low-order byte format to the 
two high-order byte format COLLL to LLO0) when extended 
logical record interface (XLRI) is used. 


If no EOB condition exists, it tests for blocked records. 


If blocked records are specified, it presents the address of 
the next buffer segment to the processing program and 
returns control to the processing program. 


If unblocked records are specified, it issues a BALR 
instruction to pass the present buffer to the EOB routine. 
The PUT routine issues another BALR instruction to obtain a 
new buffer through the 
output-synchronizing-~and-error-~processing routine, module 
IGGO19AR, and determines the address of the first segment of 
the new buffer. The PUT routine tests whether the present 
record to be written can fit entirely in the new buffer. 


If the record fits, the PUT routine then presents this 
address to the processing program and returns control to the 
processing program. 


If the record does not fit, the routine saves the record 
address in the record area, obtains the address within the 
record area with the proper alignment, sets the 
spanned-record flag in the J0B, presents the address in the 
record area to the processing program, and returns control 
to the processing program. 


If an EOB condition exists, it tests whether a minimum 
eee segment Cat least 5 bytes) can fit in the present 
uffer. 


If it fits, the routine saves the record address, obtains 
the address within the record area, sets the spanned-record 
flag in the JOB, presents the address to the processing 
Program, and returns control to the processing program. 


If it does not fit, the routine issues a BALR instruction to 


pass the present buffer to the EOB routine. The routine 
then issues another BALR instruction to obtain a new buffer 
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through the output-synchronizing-and-error-processing 
routine, IGGO19AR, and determines the address of the first 

( segment of the new buffer. The routine tests whether the 
present record can fit entirely in the new buffer. 


e If a spanned record was to be written out, it restores the 
record address, determines the length of the segment that 
can fit in this buffer, moves the segment from the record 
area ir the buffer, and sets the proper flags for the 
segment. 


e If more segments are required, the routine issues a BALR 
instruction to pass the present buffer to the EOB routine. 
The PUT routine issues another BALR instruction to obtain a 
new buffer through the 
output-synchronizing-and-error-processing routine, module 
IGGO19AR, and determines the address of the first segment of 
the new buffer. It moves the remaining bytes of data from 
the record area to the buffer and sets the proper flags for 
the segment. This step continues until the entire spanned 
record has been segmented. The routine then turns off the 
spanned-record flag and determines the address of the next 
buffer segment. 


The TRUNC routine causes an EOB condition by setting the 
DCBRECAD and DCBEOBAD fields so that they are equal. It then 
returns control to the processing program. 


When a TRUNC macro instruction is issued after a spanned record 
was written, this routine branches to the PUT routine to write 
out the last record (the spanned record) and then truncates the 
block that contains the last segment of that spanned record. 


If a spanned record is being truncated in extended logical 
record interface (XLRI) mode, the truncate return is set up as 
if a buffer location, instead of the record area, is being 
returned to the user. 
PUT Module IGGOI9DJ (SYSIN/SYSOUT): Module IGGO19DJ interfaces 
with a JES to pass the present record into the system output 
stream. For locate mode, it presents the processing program 
with the address of the next available buffer segment. 


The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 


Output CSYSOUT specified on the DD statement) 
and the DCB specifies: 

PUT, PUTX 

Simple buffering 

Locate, move, or data operating mode 

Fixed, undefined, or variable-length record format 

Spanned records 

Logical record interface 
The module consists of PUT, PUTX, and TRUNC macro instructions. 
(See Diagram M for an overview of the SAM-SI processing for 
QSAM. ) The GET routine is also in this module. It is described 
in eae on simple-buffering GET routines (see Figure 1 on 
page : 


The PUT routine operates as follows: 


( e It receives control when a PUT macro instruction is 
encountered in the processing progran. 
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It determines the type of PUT request and performs the RPL 
initialization necessary to make the translation to a JES 
PUT request. ) 


The record address is placed in RPLAREA and the length of 
the record is placed in RPLRLEN. 


For move mode the record address is obtained from register 0 
on entry to the PUT routine. For locate mode, RPLAREA was 
set up on the previous invocation of the PUT routine. 


For all record formats other than variable-type, record 
length is determined by DCBLRECL. For variable format, the 
current RDW specifies the record size, unless data mode for 
variable-length spanned records is requested, in which case 
DCBPRECL contains the record length. Also for variable 
format, the RDW is excluded from the output record by 
adjusting RPLAREA past the RDW and decreasing the record 
length by 4. 


Record Format Value of RPLRLEN 
Variable-length record format RDW Length - 4 
(move or locate mode) 
Variable-length record format value equals total length 
(spanned records, locate mode) of all segments in a 
logical record 
Variable-length spanned record RDW length - 4 
format (move mode) 
Variable-~length spanned record DCBPRECL 
format (data mode) 
Fixed and undefined-length DBLRECL 
record format (move or locate ) 
mode) ~~ 


If processing is in locate mode with variable-length spanned 
record format, the present segment is moved to the record 
area. If the SDW indicates the logical record is not 
complete, the address for the next segment is loaded into 
register l and control is returned to the processing 
program. 


If the DCB record format indicates ASA or machine control 
characters, then the control character is checked to 
determine if it is a Composed Page Data Stream control byte. 
In this case, the ACB data stream indicator is set 
CACBCCDSI) before passing control to the job entry subsystem 
(JES). 


It passes control to the job entry subsystem (JES) for data 
transfer by issuing a PUT macro instruction against the RPL. 
The fs code in register 15 is tested upon return from 
the JES. 


If a control character is indicated in the DCBRECFM field of 
the DCB, the RPLAREA pointer to the record will be adjusted 

to point past the control character and the RPLRLEN will be 

reduced by 1. The address of the control character is placed 
in the RPLCCHAR field. 


Upon return, register 15 and the RPLRINCD and RPLCNDCD 
fields are tested. 


If an error condition is detected, control is passed to the 
error-processing routine, IGGO19AH. (See Figure 12 on 


page 67.) 
For normal completion, the address in the RPLAREA field is 

placed in register 1 for locate mode. The RPLAREA field 

contains the address of the next available buffer. 
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Registers are restored and control is returned to the 


processing program. 


The PUTX routine operates as follows: 


e It receives control when a PUTX macro instruction is 
encountered in the processing program. This routine 
processes only the output mode of the PUTX macro 


instruction. 


e The address of the input buffer to be written is located 


through the DCBRECAD field of the input DCB. 


e After having located the output record, the 
processed by the PUT routine as a PUT, move 


The TRUNC routine receives control when a CNTRL 
instruction is issued. Module IGGO19DJ does no 


request is then 
mode request. 


or TRUNC macro 
processing for 


these macro instructions. Control is returned to the processing 


program by IGGO1YODJ. 


PUT Module IGGO19FG: Module IGGO1L9OFG moves the data portion of 
the variable-length record into the next available buffer 
segment. The OPEN executor selects and loads this module if the 


OPEN parameter list specifies: 
Output 

and the DCB specifies: 
PUT 
Simple buffering 


Data operating mode 


Variable-length Cunblocked or blocked) record format, 


spanned 


The module consists of a PUT routine and a TRUNC routine. 


The PUT routine operates as follows: 


e It receives control when the processing program issues a PUT 


macro instruction. 


e It determines the possible location of the next buffer 
segment by adding the length of the previous record or 
record segment to the previous buffer segment address. This 


address is in the DCBRECAD field. 


e It then compares the length of the next record with the 


remaining buffer capacity. 


e If ISO/ANSI/FIPS spanned records are being processed, the 


buffer position pointer is updated to allow 


room for the 


5-byte ISO/ANSI/FIPS segment control word (SCW). 


° If the record will fit, the routine moves the record, 
updates the length field of the block descriptor word (BDW), 


and checks for blocked records. 


e If blocked records are specified, the routine returns 
control to the processing program. If unblocked records are 
specified, the routine issues a BALR instruction to pass the 


current buffer to the EOB routine. The PUT 


routine issues 


another BALR instruction to obtain a new buffer through the 
output-synchronizing-~and-error-processing routine, module 
IGGOLOAR. The PUT routine then builds a new block 
descriptor word (BDW) and returns control to the processing 


program. 


e If the record will not fit, the routine determines whether 
there are 5 or more unused bytes remaining in the buffer. 
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If there are, the PUT routine breaks the current record so 
that the first segment fills the buffer. The remaining 
segment will be placed in subsequent buffers. The length ) 
field in the segment descriptor word (SDH) of the first 
segment is updated to reflect the length of the segment. 
The third byte of this SDW is set to X'O1' to indicate that 
this segment is the first of a multisegment record. After 
writing the buffer, the PUT routine does not return control 
to the processing program until the entire record has been 
processed. The routine forms the remainder of the current 
record into a new segment. The new segment is constructed 
in a new buffer; the third byte of the SDW of the newly 
created segment is set to X'02' if this segment is the last 
of a multisegment record. If there are other segments, the 
third byte is set to X'03!' to indicate that this segment is 
neither the first nor the last of a multisegment record. 
Newly created segments are processed as any other record. 


TRUNC routine operates as follows: 


It receives control when a TRUNC macro instruction is 
encountered in a processing program. 


It issues a BALR instruction to pass control of the present 
buffer to the end-of-block routine. 


It issues another BALR instruction to obtain a new buffer 
through the output-synchronizing-and-error-processing 
routine, module IGGOI19AR. 


It determines the address of the first segment of the new 
buffer and then returns control to the processing program. 


Module IGGO19FJ: Module IGGO19FJ presents the processing 


program with the address of the next available buffer segment 


for 


loads this module if the OPEN parameter list specifies: 


and 


The 
The 
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a variable-length record. The OPEN executor selects and ) 


Output 

the DCB specifies: 
PUT 

Simple buffering 
Locate operating mode 


Variable-length Cunblocked or blocked) record format, 
spanned 


module consists of a PUT routine and a TRUNC routine. 
PUT routine operates as follows: 


It receives control when the processing program issues a PUT 
macro instruction. 


It determines the address of the next buffer segment by 
adding the address of the last record or record segment 
moved to the buffer and the length of that record or record 
segment. The length of the record segment is in the SDW. 


It checks the buffer to see if there are 5 or more unused 
bytes. 


If there are 5 or more unused bytes remaining in the buffer, 

the PUT routine places their address into register 1 for the 
processing program. The PUT routine places the exact number 

of bytes left in the buffer into register 0 for the 

processing program. The PUT routine then returns control to 
the processing program. - 
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If the buffer contains fewer than 5 unused bytes, the 
routine issues a BALR to the EOB routine. The PUT routine 
issues another BALR instruction to obtain a new buffer 
through the output-synchronizing-and-error-processing 
routine, module IGGO1L9JAR, and determines the address of the 
first segment of the new buffer. The PUT routine then 
builds a new block descriptor word (BDW) and returns control 
to the processing program. 


TRUNC routine causes an EOB condition by setting the 


DCBRECAD and DCBEOBAD fields so that they are equal. It then 
returns control to the processing program. 


PUT 


Module IGGO19FL: Module IGGO19FL moves the current 


variable-length record into the next available buffer segment. 


The 


OPEN executor selects and loads this module if the OPEN 


parameter list specifies: 


and 


The 
The 


Output 

the DCB specifies: 
PUT 

Simple buffering 
Move operating mode 


Variable-length Cunblocked or blocked) record format, 
spanned 


module consists of. a PUT routine and a TRUNC routine. 
PUT routine operates as follows: 


It receives control when the processing program issues a PUT 
macro instruction. 


It determines the possible location of the next buffer 
segment by adding the length of the previous record or 
record segment to the previous buffer segment address. This 
address is in the DCBRECAD field. 


It then compares the length of the next record with the 
remaining buffer capacity. 


If the record will fit, the routine moves the record, 
updates the length field of the block descriptor word (BDW), 
and checks for blocked records. 


If ISO/ANSI/FIPS spanned records are being processed, the 
buffer position pointer is updated to allow room for the 
5-byte ISO/ANSI/FIPS segment control word (CSCW). 


If blocked records are specified, the routine returns 
control to the processing program. If unblocked records are 
specified, the routine issues a BALR instruction to pass the 
current buffer to the EOQB routine. The PUT routine issues 
another BALR instruction to obtain a new buffer through the 
output-synchronizing-and-error-processing routine, module 
IGGO19AR. The PUT routine then builds a new block 
descriptor word (BDW) and returns control to the processing 
program. 


If the record will not fit, the routine determines whether 
there are 5 or more unused bytes remaining in the buffer. 

If there are, the PUT routine breaks the current record so 
that the first segment fills the buffer. The remaining 
segment is placed in subsequent buffers. The length field 
in the segment descriptor word (SDH) of the first segment is 
updated to reflect the length of the segment. The third 
byte of this SDN is set to X'0Ol1* to indicate that this 
segment is the first of a multisegment record. After 
writing the buffer, the PUT routine does not return control 
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to the processing program until the entire record has been 

processed. The routine forms the remainder of the current 

record into a new segment, which is constructed ina new 2 
buffer. The third byte of the SDW of the newly created 

segment is set to X'02' if this segment is the last of a 

multisegment record. If there are other segments, the third 

byte is set to X‘'03' to indicate that this segment is 

neither the first nor the last of a multisegment record. 

Newly created segments are processed as any other record. 


The TRUNC routine operates as follows: 


e It receives control when a TRUNC macro instruction is 
encountered 1n a processing program. 


e It issues a BALR&R instruction to pass control of the present 
buffer to the end-of-block routine. 


e It issues another BALR instruction to obtain a new buffer 
through the output-synchronizing-and-error-processing 
routine, module IGGOLYAR. 


e It determines the address of the first segment of the new 
buffer and then returns control to the processing program. 


Update Mode PUTX Routines 


The update mode PUTX routines differ from other PUT routines in 
that PUTX routines share buffers Cas well as the DCB and the 
IOBs) with the update mode GET routines. It is the update mode 
GET routines that determine the address of the segment, when the 
end of the buffer is reached and a new buffer 1s needed. Thus, 
all that remains for the PUTX routines is to flag the block for 


output. 
There are two update-mode PUT routines. They are part of ) 
modules IGGOI19AE and IGGOI19BN, which are described under 


"Update-Mode GET Modules" (see Figure 3 on page 21). 


END-OF-BLOCK ROUTINES 


The end-of-block routines are selected for use with a particular 
data set on the basis of the access conditions specified by the 
processing program for that data set. 


Unless INOUT or OUTIN is specified in the OPEN parameter list, 
one end-of-block routine 1s selected. If INOUT or OUTIN is 
specified, two end-of-block routines may be required. When 
user-totaling is specified, a special user-totaling routine 1s 
executed in conjunction with one of the end-of-block routines. 


An end-of-block routine receives control from a GET or a PUT 
routine C€when using QSAM), or from a READ or WRITE routine (when 
using BSAM). 


End-of-block routines are shared by BSAM and QSAM. QSAM flow of 
control is shown in Diagram F; BSAM flow is shown in Diagram G. 
Register usage at entry to and exit from end-of-block routines 
is as follows: 


Registers Entry Value Exit Value 

0-1 N/A Not restored 

2 DCB address Unchanged or 
restored 

3 IOB - 8 Cor ICB) Unchanged or 
restored 
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Registers Entry Value Exit Value 

4-6 N/A Not restored 

7 READ or WRITE CCW offset Unchanged or 
restored 

8 Caller's base address Unchanged or 
restored 

9-10 User's registers Restored! 

11-12 User's registers Unchanged or 
restored 

13 Save area Unchanged or 
restored 

14 Caller's return address Unchanged or 
restored 

15 Entry point address Not restored 

Note: 


1 These registers are saved by end-of-block in the last two 
words of the save area, and are restored before returning to 
caller. 


Control passes from an end-of-block routine, through the EXCP or 
EXCPVR interface, to the I/0 supervisor, except when one channel 
program or IQB is chained to another. End-of-block routines 
provide device-oriented entries for the channel program, such as 
control characters and auxiliary storage addresses. 


If the American National Standard Code for Information 
Interchange (ASCII) is used, routines IGGO19CC and IGGO1ICW 
issue an XLATE macro instruction which translates the entire 
buffer from EBCDIC to ASCII before writing the buffer. If 
format-D records are specified, the record descriptor words are 
converted from binary form to decimal form prior to translation. 


End-of-block routine descriptions are grouped as follows: 


e Ordinary end-of-block routines. These routines perform 
device-oriented processing when normal channel-program 
scheduling is used for tape and unit record devices. The 
user-totaling routine 1s described in this section. It 
moves the contents of the user's totaling area to the 
user-totaling save area pointed to by the DEB. 


e Chained channel-program scheduling end-of-block routines. 
These routines perform device-oriented processing and 
attempt to chain channel programs when chained 
channel-program scheduling is used for tape and unit record 
devices. 


e DASD end-of-block routines. These routines perform 
direct-access device processing for output data sets. The 
routines attempt to chain IOBs to a queue for which a 
real-address channel program will be dynamically built by 
the DASD SIO/pagefix appendage. 


Ordinary End-of-Block Routines 


Ordinary end-of-block routines process channel programs for tape 
and unit record devices. This processing 1S independent of the 
progress of a previous channel program and causes access to 
proceed one channel program at a time. For unit-record devices, 
these routines process control characters and PRTOV macro 
instructions. 


Figure 5 on page 41 lists the routines available and the 
conditions that cause a particular routine to be used. For 
QSAM, the OPEN executor selects one of the routines, loads it 
and places its address into the DCBEOB field. For BSAM, the 
OPEN executor selects one of the routines, loads it, and places 
its address into both the DCBEOBR and DCBEOBW fields. If INOUT 
or OUTIN is specified, a second end-of-block routine may be 
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selected and loaded. Its address replaces one of the duplicate 
addresses in the DCB. 


End-of-Block Module IGGO19CC: Module IGGO19CC causes a channel 
program to be scheduled. 


If ASCII coding is used, the entire output buffer is translated 
from EBCDIC to ASCII. If the ISO/ANSI/FIPS spanned record 
format CDS/DBS) is used, the 4-byte IBM segment descriptor word 
CSDN) is converted to the 5-byte ISO/ANSI/FIPS segment control 
word (SCW) before translation. 


The 


OPEN executor selects and loads this module if the following 


condition exists: 


The 


The DCB specifies normal channel-program scheduling and 
magnetic tape, card reader, or paper tape as the device 
type. 


module operates as follows: 


It receives control when a GET or PUT routine finds that a 
buffer is ready to be scheduled, or at the conclusion of the 
processing performed by a READ or WRITE routine. 


If the device type is magnetic tape, record format is 
variable, control is received from a PUT or WRITE routine, 
and a check is made to see if at least 18 bytes are to be 
written. If not, the record is padded with binary zeros up 
to 18 bytes or block size, whichever is less; however, with 
the ASCII feature, format-D records are padded with the 
ASCII padding character, X'5F", instead of with zeros. An 
EXCP macro instruction is issued, and control is returned to 
the PUT or WRITE routine. 


If the device type is magnetic tape and either the record 
format is not variable or control is not gained from a PUT 
or WRITE routine, an EXCP macro instruction is issued and 
control is returned to the GET, PUT, READ, or WRITE routine. 


If an IBM 3525 Card Punch associated data set is being used, 
ences is made to determine the status of the read-sequence 
ag. 


= If the read-sequence flag (DCBQSWS field) is on and the 
associated data set is not READ and print, a WTP 
message, which indicates that either the GET or READ 
sequence is invalid, is issued. An abend (003) is 
issued with a return code of 01. If the read-sequence 
flag is off, the macro sequence is assumed to be valid 
and the READ-sequence flag is turned on. 


a Tests are made to determine if the associated data set 
is either read, punch, and print, or read and punch. 


= If either read, punch, and print, or read and punch is 
specified in the FUNC parameter, a test is made to 
determine the status of the punch-sequence flag. If the 
punch-sequence flag (DCBQSWS field) is on, it is turned 
off. (This indicates to modules IGGO1L9CE and IGGO19ICF 
that their calling routine is in the proper sequence. ) 


_ If the associated data set is not read, punch, and 
Print, or read and punch, it is assumed that read and 
print is being used. 


_ A test is made to determine the status of the 
print-sequence flag (DCBQSWS). 


= If the print-sequence flag iS on, it is assumed that the 
print command has been issued. I[t is turned off so that 
proper sequencing may continue. If the print-sequence 
flag is off, it is assumed that the print command has 
not been issued. 
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Access Method 


Options Selections 

Normal channel program X X X X X X X X X X X X X X X 
scheduling 

Output, or INOUT OUTIN X 

Card reader X X 

Printer or card punch X X X X X X X 

Printer (3535) X X 
Interpreter/Punch (3525) X 
Data Processing Image X 

(3525) 

Magnetic Tape X X 


No control character 

Machine control character 

ANS control character X X 

PRTOV—No user exit X X 

Label=C€,,,IN) or X 
Label=(,,,0UT) on DD 

statement! 

User totaling facility X 

Associated data set X X X X X X 
End of Block Modules 

IGGO19AX AX 

IGGO19CC CC CC CC 

IGGO19CE CE CE CE CE 

IGGO019CF CF CF 

IGGO019CT? CT 

IGGO19FK FK 
IGGO19FQ FQ FQ 
IGGO19FU FU 
IGGO19TC TC 





Figure 5. Module Selector—Ordinary End-of-Block Modules (Cnon-DASD) 


Note to Figure 5: 
1 When either of these LABEL parameters is specified and the 
data set is opened for INOUT or OUTIN, the OPEN executor 
loads module IGGO19CT in addition to one of the other 
end-of-block routines. 
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End-of-Block Module IGGO19CE: Module IGGOI1L9SCE, if necessary, 
modifies channel programs for unit record output devices when 
American National Standard Institute CANSI) control characters 


are 


not used. The module then causes scheduling of the channel 


program, whether it was modified or not. The OPEN executor 
selects and loads this module if the DCB specifies: 


The 


Normal channel-program scheduling 

Punch, or printer 

Machine control character, or no control character 
module operates as follows: 


It receives control when a PUT routine finds that a buffer 
1s ready to be scheduled, or at the conclusion of the 
processing performed by a WRITE routine. 


It adjusts, in the channel program, the length and starting 
address either for the length field of variable-length 
records or for a control character. If there are 
variable-length records and a control character, the module 
adjusts for both. 


If a control character is present, it inserts it as the 
command byte of the WRITE channel command word (CCW). 


If the device is an IBM 3800 Printing Subsystem and OPTCD=J 
is specified, the module determines if the table reference 
character in the current record refers to the translate 
table presently active in the device. If so, the select 
translate table CCW, which precedes the WRITE CCW, is 
altered to a NOP. Otherwise, the select CCW is modified to 
select the appropriate translate table. CIf OPTCD=J is not 
specified, the common printer channel program is used.) 


It tests the DCB field at location DCBDEVT + 1 for a PRIOV 
mask. If a PRTOV mask is present, the module temporarily 
inserts it into the length field of the NOP CCW and sets the 
first bit in the IOB. The PRTOV appendage IGGOLJCL tests 
for the presence of the IOB bit and the CCW mask. 


If an associated data set 1s being used, a test is made to 
determine the status of the punch-sequence flag. 


— If the punch-sequence flag (CDCBQSWS) is on and the 
associated data set is not punch and print, a WIP 
message is issued which indicates that either the PUT or 
WRITE sequence is invalid. An abend (003) is issued 
with a return code of 02. If the punch-~sequence flag is 
off, the macro sequence is assumed to be valid and the 
punch-sequence flag is turned on. 


— A test is made to determine if the associated data set 
is read, punch, and print. If read, punch, and print is 
specified in the FUNC parameter, a test is made to 
determine the status of the read-sequence flag. 


- If the read-sequence flag is on, it is turned off. This 
allows proper sequencing to continue. If the 
read-sequence flag is off, an ABEND is issued. 


= A test is made to determine the status of the 
print-sequence flag. 


= If the print-sequence flag is on, proper sequencing 
continues. If it is off, modules IGGO19OCE and IGGO19CF 
continue with their normal functions. 


_ If the associated data set is punch and print, the 


status of the print-sequence flag is determined as 
previously explained for module IGGO19CC. 
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e It issues an EXCP macro instruction and returns control to 
the PUT or WRITE routine. 


End-of-Block Module IGGO19CF: Module IGGOL9OCF modifies channel 
programs for unit record output devices when an American 
National Standard Institute CANSI) control character is present. 
The module then causes scheduling of the channel program, 
whether it was modified or not. The OPEN executor selects and 
loads this module if the DCB specifies: 


Normal channel-program scheduling 
Punch or printer 
ANS control character 

The module operates as follows: 


e It receives control when a PUT routine finds that a buffer 
1s ready to be scheduled, or at the conclusion of the 
processing performed by a WRITE routine. 


e It adjusts, in the channel program, the length and starting 
address for the control character, and for the length field 
of variable-length records. 


e It translates the control character and inserts it as the 
command byte of the control channel command word () which 
precedes the WRITE CCW Cor the select CCH, if the device is 
a 3800 Printing Subsystem with OPTCD=J specified. ) 


e If the device is a 3800 Printing Subsystem and OPTCD=J is 
specified, the module determines if the table reference 
character in the current record refers to the translate 
table presently active in the device. If so, the select 
translate table CCW, which precedes the WRITE CCW, is 
altered to a NOP. Otherwise, the select CCW is modified to 
select the appropriate translate table. CIf OPTCD=J is not 
specified, the common printer channel program is used.) 


e It tests the DCB field at location DCBDEVT+l for a PRTOV 
mask. If a PRIOV mask is present, the module inserts it 
into the length field of the control CCW and sets the first 
bit in the IOB. The PRIOV appendage IGGO1L9OCL tests for the 
presence of the IOB bit and the CCW mask. 


e If an associated data set 1s being used, a test is made to 
determine the status of the punch-sequence flag. 


= If the punch-sequence flag (CDCBQSWS) is on and the 
associated data set 1s not punch and print, a WIP 
message is issued to indicate that either the PUT or the 
WRITE sequence is invalid. An abend (003) is issued 
with a return code of 02. If the punch-sequence flag is 
off, the macro sequence is assumed to be valid and the 
punch-sequence flag is turned on. 


= A test is made to determine if the associated data set 
1s read, punch, and print. If read, punch, and print is 
specified in the FUNC parameter, a test is made to 
determine the status of the read-sequence flag. 


ae If the read-sequence flag (DCBQSWS) is on, it is turned 
off. This allows proper sequencing to continue. If the 
read-sequence flag is off, an ABEND is issued. 


= A test is made to determine the status of the 
Print-sequence flag (DCBQSWS). 


= If the print-sequence flag is on, proper sequencing 


continues. If it is off, modules IGGO19CE and IGGO19CF 
continue with their normal functions. 
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= If the associated data set is punch and print, the 
status of the print-sequence flag is determined, as 
previously explained for module IGGO19CC. 


e It issues an EXCP macro instruction and returns control to 
the PUT or WRITE routine. 


End-of-Block Mcdule IGGO19CT: Module IGGO19CT sets error 
indicators in the user's DCB and IOB. The OPEN executor selects 
and loads this module if the following conditions exist: 


The data set is opened for INOUT and the DD statement 
specifies LABEL=(C,,,IN) 


or 


The data set is opened for OUTIN and the DD statement 
specified LABEL=C,,,0UT) 


The module operates as follows: 


e It receives control and sets error indicators in the user's 
DCB and IOB when either of the following conditions exists: 


The DD statement specifies LABEL=C€,,,IN), the data set 
is ies da for INOUT, and a WRITE macro instruction is 
issued, 


The DD statement specifies LABEL=(€,,,0UT), the data set 
is opened for OUTIN, and a READ macro instruction is 
issued. 


End-of-Block Module IGGO19FK: Module IGGOL9FK causes a channel 
program to be scheduled. The OPEN executor selects and loads 
this module, if the following conditions are described in the 
DCB: 


Data protection image (DPI) is specified for the 3525 with a 
read and punch, or read, punch, and print file with normal 
channel-program scheduling. 


The module operates as follows: 


e It receives control when a PUT routine finds that a buffer 
1s ready to be scheduled, or at the conclusion of the 
processing performed by a WRITE routine. 


e If the READ associated data set has been opened, a test is 
made to determine the status of the read-sequence flag. 


e If the READ associated data set has not been opened, or if 
the READ-sequence flag is off, a WIP message is issued which 
indicates that the sequence is invalid. An abend (003) is 
then issued with a return code of 02. If the read-sequence 
flag 1s on Cindicating proper sequencing), it is turned off. 


e A test is then made to determine the status of the 
punch-sequence flag CDCBQSHS field). If the punch-sequence 
flag is on, a WIP message is issued, followed by an ABEND 
(003). If the punch-sequence flag is off, it 1s turned on 
so that proper sequencing may continue. 


e It then establishes the buffer area (for the punch 
operation) according to the format of the data protection 
image. If a byte in the DPI is blank (€X'G0"), the module 
blanks out the corresponding byte in the output punch 
buffer. If the byte is not blank, the output buffer is not 
altered. Both areas are 80 bytes in length. 


e It returns control to either the PUT or WRITE routine that 
called it. 
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End-of-Block Module IGGO19FQ: Module IGGO1L9FQ causes a channel 
program to be scheduled to the 3525 Card Punch. The OPEN 
executor selects and loads this module, if the following 
conditions exist: 


The 


A print; read, punch, and print; read and print; or punch 
and print file is specified for the 3525 with either a 
machine control character, an ANSI control character, or no 
control character at all with normal channel-program 
scheduling. 


module operates as follows: 


It receives control when a PUT routine finds that a buffer 
is ready to be scheduled, or at the conclusion of the 
processing performed by a WRITE routine. 


If either a read, punch, and print or punch and print 
associated data set has been specified, a test 1s made to 
determine the status of the print sequence flag. If the 
print-sequence flag is on, the CCW pointer is modified to 
point to the print CCW. 


If both the print- and punch-sequence flags are off, a WTP 
message is issued to indicate that the sequence is invalid. 
An abend (003) is then issued with a return code of 03. 


If the print-sequence flag is off, but the punch-sequence 
flag 1s on, the module locates the punch DCB and turns off 
the punch-sequence flag. The CCW pointer is then modified 
to point to the print CCW and the print-sequence flag is 
turned on. 


If a read and print associated data set is specified and the 
Pprint-sequence flag 1s on, the CCW pointer is modified to 
point to the print CCW. 


If the print-sequence flag is off, but the read-sequence 
flag is on, the READ DCB is located and the read~sequence 
flag is turned off. The CCW pointer is then modified to 
point to the print CCW and the print-sequence flag is turned 
on. 


After sequence checking 18S completed, the module tests for 
ANSI and machine control characters. If ANSI is specified, 
the control character is analyzed to determine which line 
the data is to be printed on. An OR operation is then 
performed on that line number and the print CCW. 


If ANSI control characters are not specified, the module 
tests for record format and machine control characters. If 
machine control characters are specified, they are inserted 
into the CCW and the buffer address is increased by one. 


If no control character is specified, and two-line printing 
is specified in the FUNC parameter, the module tests to 
determine line positioning on the card. This is reflected 
in the operation code of the print CCW. 


If no control character is specified, and multiline printing 
is specified, tests are again made to determine line 

Pee ane COutput lines are printed on successive 

ines.) 


If no control characters are specified, or if they are 
specified and have been processed, or if either two-line or 
multiline positioning is complete, the module establishes 
the WRITE CCW and stores the start address of the CCW for 
the input/output supervisor (CIOS). 


If the PRTOV macro instruction is specified, a check is made 
for either channel 9 or 12 (depending on which channel is 
specified in the PRTOV macro instruction). 
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e The channel program is then executed and a WAIT command is 
issued. It returns control (via register 14) to either the 
PUT or WRITE routine that called it. ) 


End-of-Block Module IGGO19OFU: Module IGGO19FU causes a channel 
program to be scheduled. The OPEN executor selects and loads 
this module if one of the following conditions exists: 


INTERPRET PUNCH is specified for the 3525 with normal 
channel-program scheduling. 


INTERPRET PUNCH is specified for the 3525 with first control 
ae for stacker selection or with no control character 
at all. 


The module operates as follows: 
e It retrieves the data address from the WRITE CCW. 


e It tests for record format to determine if machine control 
characters or ANS control characters are being used. 


° If either machine or ANS control characters are being used, 
the data address is increased by one and the control 
character is inserted into the command byte of the WRITE 
CCW. 


e If machine control characters are not specified, the data 
address remains unchanged. 


e The module blanks out a print buffer. (The print buffer is 
a 64-byte area located 64 bytes past the beginning of the 
IOB.)} It then moves the final 16 characters of the output 
punch buffer into the last 16 bytes of the print buffer. 


e The channel program start address is stored in the IOB. 
° The channel program is then scheduled for execution. 2 
e It returns control (via register 14) to either the PUT or 


WRITE routine that called it. 


End-of-Block Module IGGO19TC: The OPEN executor selects and 
loads this module if the user specified the user-totaling 
facility (that is, if bit 6 is 1 in DCBOPTCD) for the data set 
and if the following condition exists: 


' The DCB specifies normal channel-program scheduling and 
magnetic tape as the device type. 


The module operates as follows: 


e It receives control when a PUT routine finds that a buffer 
is ready to be scheduled, or at the conclusion of the 
processing performed by a WRITE routine. 


e The module issues an EXCP macro instruction and returns 
control to the PUT or WRITE routine. 


e It issues a BALR instruction to the user-totaling save 
routine, IGGO1L9AX, to place the user's total in the 
user-totaling save area, which is pointed to by the DEB. 


User-Totaling Save Module IGGO19AX: Module IGGO19AX saves an 
image of the user's totaling area in the sequential access 
method totaling save area. This save area is described in 
Figure 36 on page 244. 


The OPEN executor selects and loads this module if the 


user-totaling option is specified in the DCB (that is, if bit 6 
is 1 in the DCBOPTCD field). ) 
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The module operates as follows: 


° It receives control from one of the end-of-block 
routines——-IGGO19TC, IGGO1L9OTV, IGGO1LOTN, or IGGO19T2. 


e It retrieves the address of the sequential access method 
totaling save area from the access method portion of the 
DEB. 

e The sequential access method totaling save area contains a 


pointer to the user's totaling area. An image of the user's 
total is saved in the next available segment of the 
sequential access method totaling save area. Then the save 
area control block is updated so that the pointer identifies 
the current entry. 


° It returns control to the end-of-block routine that called 
it: 


Chained Channel-Program Scheduling End-of-Block Routines (Non-DASD Only) 


Chained channel-program scheduling consists of joining the 
channel programs before execution and disconnecting and posting 
the channel programs after execution. Joining is performed by 
the end-of-block routines; disconnecting and posting is 
performed by appendages. (For a description of the 
disconnecting process, refer to the program controlled 
interruption (PCI) and channel-end appendages.) The IOB 
constructed by the OPEN executor when chained channel-program 


scheduling is used differs from the IOB used in normal 


channel-program scheduling. 


These differences are illustrated 


in Figure 6 and tabulated in Figure 8 on page 49. 





(a) 
SAM Prefix to [OB when 
normal channel-program 
scheduling is used 


Next 1OB Event Contro! Block 
ECB Address* 








Standard |OB 


Wore 


*When OSAM is used, the address is that of 
the ECB in the SAM prefix; when BSAM is 
used the address is that of the ECB in the 
data event control block (DECB). 


Figure 6. 
Scheduling 
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(b) 
SAM Prefix to |OB when 
chained channel-program 
scheduling is used 


| Flags | Offsets | Event Control Block 
[Fieics | tae NOP cow 
ECB Address* * 











Standard IOB 


<—_———" 2 Words oe 


** Always shows the address of the ECB in 
the SAM prefix, irrespective of whether 
QSAM or BSAM is used. 


IOB SAM Prefixes for Normal and for Chained 


Method of Operation 


47 
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These routines join channel programs so that the channel 
executes successive channel programs without interruption as if 
they were one continuous channel program. To join the present 
channel program to one already scheduled, the end-of-block 
routine finds the last CCW of the preceding channel program by 
referring to the IOB and changes that CCW from a NOP command to 
a TIC command. If this joining is performed before the channel 
attempts to execute (more precisely, before it fetches) that 
CCN, the joining process is successful. If the execution of the 
preceding channel program is completed while the routine is 
operating, the joining is unsuccessful. 


The routine tests the main IOB's IOBCNOPA field to determine 
whether to join the channel programs or to issue an EXCP. The 
routine tries to add to the chain by using CS to test whether 
the high-order bit of IOBCNOPA is on. If the bit is on, the 
chain is no longer running. If it is off, the CS instruction 
changes the last NOP pointer to join the new channel program. 
CS 1s used to prevent MP systems from starting two chains at 
once. 


The chained scheduling end-of-block routines, like the ordinary 
end-of-block routines, provide device-oriented entries for 
channel programs. For unit-record devices they process control 
characters. (No processing is performed for the PRTOV macro 
instruction because it and chained scheduling are mutually 
exclusive.) There are four chained scheduling end-of-block 
routines, each of which performs joining and channel program 
entry processing for a different set of access condition 
options. Figure 7 lists the available routines and the 
conditions that cause a particular routine to be used. 


For QSAM, the OPEN executor selects one of the routines, loads 
it, and places its address into the DCBEOB field. For BSAM and 
BPAM, the OPEN executor selects one of the routines, loads it, 
and places its address into both the DCBEOBR and DCBEOBW fields. 
If INOUT or OUTIN is specified, a second end-of-block routine 
may be selected and loaded. Its address replaces one of the 
duplicate addresses in the DCB. 

Figure 7 shows that, when chained scheduling is used, the OPEN 
mode is input, the device type is magnetic tape, and routine 


IGGO19CW is selected and loaded for use as the end-of-block 
routine for the DCB. 


Access Method Options Selections 

Chained channel program X X xX X X xX X 
scheduling 

Input, or X xX 

Output X X X X X 
Card reader X 

Printer or card punch X xX X 
Magnetic tape X xX X 

No control character X 

Machine control character X 

ANS control character X 
Figure 7 (Part 1 of 2). Module Selector—Chained 


Channel-Program Scheduling, 
End-of-Block Modules—Non-DASD 
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Access Method Options Selections 
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User-totaling facility 


End-of-Block Modules 
IGGO19AX? 
IGGO019CW 
IGGO19CX 
IGGO19OCY 
IGGO19TW 


Figure 7 (Part 2 of 2). 


Note to Figure 7: 


1 


CW CW CW 


AX 


CX CX 
CY 
TW 


Module Selector—Chained 


Channel-Program Scheduling, 
End-of-Block Modules—Non-DASD 


"Ordinary End-of-Block Processing." 


Prefix Parameter 


Number of IOBs 


Size of SAM prefix 


Contents of link 
address field 


Use of ECB field 


Contents of IOBCICBA 
field 


Contents of IOQBCNOPA 
field 


Figure 8. 


Normal Scheduling 


As many as there are 
buffers or channel 
programs 


2 words 


Address of the next 
IOB 


Used in QSAM to post 
channel program 
execution Cin BSAM, 
the ECB in the DECB 
is used) 


Field does not exist 


Field does not exist 


Chained Scheduling 


1977,1985 


This module is described earlier in this section under 


Chained Scheduling 


Only 1 (there are as 
many ICBs as there 
are buffers or 
channel programs) 


4 words 


Flags 
Offsets 


Used in QSAM and 
BSAM to post a 
channel program 
execution that is 
terminated by 
channel-end 
interruption (that 
is, channel program 
chaining has been 
broken) 


Address of the first 
ICB 


Address of NOP CCW 
of last scheduled 
channel program. The 
high-order bit is on 
when the chain is 
running. 


Comparison of IOB SAM Prefixes for Normal and for 
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End-of-Block Module IGGOI19CW: Module IGGO1LSCW attempts to join 
the present channel program to the last one in the chain of 
scheduled channel programs. If ASCII is used, the entire output 
buffer is translated from EBCDIC to ASCII. If the ISO/ANSI/FIPS 
spanned record format (DS/DBS) is being processed, the 4~byte 
IBM segment descriptor word (SDW) is converted to the 5-byte 
ISO/ANSI/FIPS segment control word (SCH) before translation. 

The OPEN executor selects and loads this module if one of the 
following conditions exists: 


e The OPEN parameter list specifies input and the DCB 
specifies chained channel-program scheduling and any device 
except DASD. 


e The OPEN parameter list specifies output and the DCB 
specifies chained channel program scheduling and magnetic 
tape. 


The module operates as follows: 


@ It receives control from a GET or PUT routine when the 
routine finds that a buffer is ready to be scheduled, or 
from a READ or WRITE routine at the conclusion of its 
processing. 


e If the device type is magnetic tape, the routine determines 
the increment value and stores it in the ICB. 


e If the device is magnetic tape, the record format is 
variable, and control is received from a PUT or WRITE 
routine, a check is made to see if at least 18 bytes are to 
be written. If not, the record is padded with binary zeros 
up to 18 bytes or block size, whichever is less; however, 
with the ASCII feature, format-D records are padded with the 
ASCII padding character, X'"5F', instead of zeros. 


e The module attempts to join the channel program for the 
current buffer to the preceding channel program (that is, 
chain schedule) by: 


= Setting the ICB to not~complete 


= Inserting the address of the current channel program 
into the NOP CCW of the preceding channel program 


= Changing the NOP CCW in the preceding channel program to 
a TIC CCW 


= Updating the SAM IOB prefix block to point to the end of 
the current channel program by doing a CS on IOBCNOPA 


e If the joining (the CS) was successful, the routine returns 
control to the calling routine. 


e If the present channel program was not joined to the 
preceding one, the routine prepares to cause restart of the 
channel by copying the channel program start address from 
the current ICB into the I0OB, and uses the EXCP macro 
instruction to cause scheduling of the channel program. It 
then returns control to the calling routine. 
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End-of-Block Module IGG0O19CX: Module IGGO19CX, if necessary, 
modifies channel programs for unit-record output devices when 


ANS 


control characters are not used. The module then attempts 


to join the current channel program to the preceding one. The 
OPEN executor selects and loads this module if the DCB 
specifies: 


Chained channel-program scheduling 

Printer or card punch 

No control character or machine control character 
module operates as follows: 


It receives control from a PUT routine when the routine 
finds that a buffer is ready for scheduling, or from a WRITE 
routine at the conclusion of itsS processing. 


It adjusts the length entry and the start address entry in 
the channel program for either a control character or a 
variable-length block length field or for both, if both are 
present. 


It inserts the control character, if present, as the command 
byte of the WRITE channel command word (CCH). 


If the device is a 3800 Printing Subsystem and OPTCD=J is 
specified, the module determines if the table reference 
character in the current record refers to the translate 
table presently active in the device. If so, the select 
translate table CCW, which precedes the WRITE CCW, is 
altered to a NOP. Otherwise, the select CCW is modified to 
select the appropriate translate table. CIf OPTCD=J is not 
specified, the common printer channel program is used.) 


It attempts to join the channel program for the current 
buffer to the preceding channel program (that is, chain 
schedule) by: 


— Setting the ICB to not-complete 


— Inserting the address of the current channel program 
into the NOP CCW of the preceding channel program 


= Changing the NOP CCW in the preceding channel program to 
a TIC CCW 


- Updating the SAM IOB prefix block to point to the end of 
eet ele channel program by a CS instruction on 
OBCNOPA 


If the joining (the CS instruction) was successful, the 
routine returns control to the calling routine. 


If the present channel program was not joined to the 
preceding one, the routine prepares to cause restart of the 
channel by copying the channel program start address from 
the current ICB into the IOB, and uses the EXCP macro 
instruction to cause scheduling of the channel program. It 
then returns control to the calling routine. 
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End-of-Block Module IGGO19CY: Module IGGO1OCY modifies channel 
programs for unit record output devices when ANS control 
characters are used. The module then attempts to join the 
current channel program to the preceding one. The OPEN executor 
selects and loads this module if the DCB specifies: 


Chained channel-program scheduling 
Printer or card punch 

ANS control character 

module operates as follows: 


It receives control from a PUT routine that finds a buffer 
is to be scheduled, or from a WRITE routine at the 
conclusion of its processing. 


It adjusts the length entry and the start-address entry in 
the channel program for either the control character or a 
ae ee block length field or for both, if both are 
present. 


It translates the control character and inserts it as the 
alle byte of the control CCW which precedes the WRITE 
). 


It translates the control character and inserts it as the 
command byte of the control CCW which precedes the WRITE CCW 
Cor the select CCW, if the device is a 3800 Printing 
Subsystem with OPTCD=J specified. ) 


If the device is a 3800 Printing Subsystem and OPTCD=J is 
specified, the module determines if the table reference 
character in the current record refers to the translate 
table presently active in the device. If so, the select 
translate table CCW, which precedes the WRITE CCW, is 
altered to a NOP. Otherwise, the select CCW is modified to 
select the appropriate translate table. (CIf OPTCD=J is not 
specified, the common printer channel program is used. } 


It attempts to join the current channel program to the 
preceding one (that is, chain schedule) by: 


a Setting the ICB to not-complete 


a Inserting the address of the current channel program 
into the NOP CCW of the preceding channel program 


= Changing the NOP CCW in the preceding channel program to 
a TIC CCW 


a Updating the SAM IOB prefix block to point to the end of 
rae eaaeat channel program, using the CS instruction on 
0 


If the joining (the CS instruction) was successful, the 
routine returns control to the calling routine. 


The routine tests the ICB for the present channel program to 
find whether the joining was successful or not. 


If the present channel program was not joined to the 
preceding one, the routine prepares to cause restart of the 
channel by copying the channel program start address from 
the current ICB into the IOB, and uses the EXCP macro 
instruction to cause scheduling of the channel program. It 
then returns control to the calling routine. 
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End-of-Block Module IGGO19TW: Module IGGO1LOTW attempts to join 


the 


present channel program to the last one in the chain of 


scheduled channel programs. The OPEN executor selects and loads 
this module if the user specifies the user-totaling option (that 


1S, 


if bit 6 is 1 in DCBOPTCD) for the data set and if the 


following condition exists: 


The 


The OPEN parameter list specifies Output and the DCB 
specifies chained channel program scheduling and magnetic 
tape. 


module operates as follows: 


It receives control from a PUT routine when the routine 
finds that a buffer is ready to be scheduled, or from a 
WRITE routine at the conclusion of its processing. 


It issues a BALR instruction to the user-totaling save 
routine, IGGO19AX, to place the user's total in the 
user-totaling save area, which 1s pointed to by the DEB. 


The routine determines the increment value and stores it in 
the ICB. 


The module attempts to join the channel program for the 
current buffer to the preceding channel program (that is, 
chain schedule) by: 


= Setting the ICB to not-complete. 


= Inserting the address of the current channel program 
into the NOP CCW of the preceding channel program. 


— Changing the NOP CCW in the preceding channel program to 
a TIC CCW. 


_ Updating the SAM IOB prefix block to point to the end of 
the current channel program. 


— It determines whether the joining was successful by 
using a CS instruction on IOBCNOPA. 


- If the joining (the CS instruction) was successful, the 
routine returns control to the calling routine. 


- If the present channel program was not joined to the 
preceding one, the routine prepares to cause restart of 
the channel by copying the channel program start address 
from the current ICB into the IOB and uses the EXCP 
macro instruction to cause scheduling of the channel 
aa ey It then returns control to the calling 
routine. 
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End-of-Block Routines for Direct-Access Storage 


For an output request, the end-of-block modules maintain the 
track balance and calculate the address of the record to be 
oe (that is, the CCHHR address on the direct-access storage 

evice). 


The DASD end-of-block modules (see Figure 9 on page 55) process 
the IOB passed to them by the caller. IOBs built by the DASD 
OPEN executor contain an IOB extension CIOBEX) with one or two 
CCWs and other data. The IOB is processed by first chaining it 
to a queue of active IOBs, then by constructing a real-address 
channel program that serves the IOB's request, and, finally, by 
disconnecting and posting the IOB. The DASD end-of-block 
modules chain the IOB to the active queue. (See "Start I70 
(S10) Appendages"™ for a description of the channel-program 
building process; see "Channel End Appendages and Abnormal End 
eee.” for a description of the disconnecting and posting 
process. 


A queue of IOBs is made active by storing the address of the 
queue's first and last IOBs in the interrupt control queue 
element CICQE), in fields ICQFIRST and ICQENDA, and issuing an 
EXCPVR SVC. The DCB contains the ICQE's address Cat DCBICQE or 
DCBIOBAD?). The ICQE is built by the DASD OPEN executor. 


The IOB in the sequential access method block CSAMB) is passed 
to EXCPVR. (Note: The IOB in the SAMB is not part of the active 
IOB queue.) The IOB in the SAMB is pointed to by the ICQE 
CICQIOBA). The SAMB is built by the DASD OPEN executor. 


The DASD end-of-block modules either chain the IOB passed to 

them to an active IOB queue, or issue an EXCPVR SVC. The 
compare-and-swap (CS) instruction is used to attempt to update 

ICQENDA with the address of the IOB. The CS instruction tests 

the high-order bit of ICQENDA CICQEXND). } 


If ICQEXND is zero, the swap is successful: The active queue of 
IOBs is updated to include another IOB. The end-of-block module 
then returns to the caller. 


If ICQEXND is one, no active IOB queue exists and the swap 
fails. The IOB's address is put into ICQFIRST and ICQENDA, and 
an EXCPVR SVC is issued. The end-of-block module then returns 
to the caller. 


DASD end-of-block modules are loaded for all BSAM, BPAM, and 
QSAM direct-access processing, except for BFTEK=R processing 
(see "READ Module IGGO19BU") and for WRITE-load processing (that 
is, BDAM create processing). IGGO19TV is the end-of-block 
module for all processing except track overflow output. 

IGGO019T2 is loaded for track overflow output. 





i DCBICQE and DCBIOBAD are labels for the same DCB field. 
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Access Method Options Selections 

Input or update X 

INOUT or OUTIN X xX X xX 

Output X X xX 
Track overflow X 

LABEL=(C,,,IN) or X 


LABEL=C€,,,0UT) ona 
DD statement? 


User totaling X 
Direct-access X X X X X X X 
DASD End-of-Block Routines 

IGGO19AX4 AX AX 
IGGO19CT?,# CT 

IGGO19OTV TV TV TV TV 

IGGO019T2 T2 T2 


Figure 9. Module Selector—DASD End-of-Block Routines 


Notes to Figure 9: 


2 When either LABEL=(,,,IN) and OPEN for INOUT or 
LABEL=(€,,,0UT) and OPEN for OUTIN is specified, IGGO19CT is 
loaded in addition to one of the other end-of-block 
routines. 


This module is described in "Ordinary End-of-Block 
Routines." 


END-OF-BLOCK MODULE IGGOI1OTV: For an output request, module 
IGGO19TV computes a valid storage address (CCHHR) for the data 
record Cusing the track balance value and, if necessary, further 
allocated extents on the volume), and then attempts to chain an 
IOB to an active IOB queue. For an input request, module 
IGGO1LOTV attempts to chain an IOB to an active IOB queue. The 
OPEN executor selects and loads IGGO19TV when the DCB specifies: 


Direct-access storage 
Not track overflow output 

The module operates as follows: 

e It receives control from a GET or PUT routine that finds a 
buffer is ready to be scheduled, or from a READ or WRITE 
routine at the conclusion of its processing. 

e If the user specified the user-totaling option (that is, if 
bit 6 in DCBOPTCD is 1) for the data set, IGGO1OTV issues a 
BALR instruction to the user-totaling save routine, 
IGGO19AX, to place the user's total in the user-totaling 
save area, which is pointed to by the DEB. 

For an output request: 

° It calculates the block length, using the overhead value for 


a last block ona track. (This value is found in the 
resident I/0 device table. The address of the table is in 
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the DCBCVTBL field.) It compares the calculated block 
length with the value in the DCBTRBAL field of the DCB. 


If the block length is equal to or less than the DCBTRBAL 
a ee: the module determines that the block fits on 
he track. 


If the block length exceeds the DCBTRBAL field value, the 
module calculates the next sequential track address and 
compares it with the end address of the current extent shown 
in the data extent block CDEB). 


If no end-of-extent condition exists, it determines that the 
block fits on the track. 


If an end-of-extent condition exists, it seeks a new extent 
in the DEB. 


If a new extent exists, it updates the DCBFDAD and the 
rec ada fields and determines that the block fits on the 
rack. 


If there is no further extent, an EOV condition exists. The 
module sets the DCBCIND1 field in the DCB and the CSW field 
in the IOB to show end-of-volume, and returns control to the 
PUT or WRITE routine without issuing an EXCP macro 
instruction. The EOV condition is eventually recognized and 
processed—in QSAM by the synchronizing routine and in BSAM 
by the CHECK routine. 


If the module determines that the block fits on the track, 
the module calculates the actual block length using the 
overhead value for a block that is not the last ona track. 
CThis value is found in the resident I/0 device table.) It 
adjusts the value in the DCBIRBAL field by this amount and 
Fee tle DCBFDAD field and the JOB extension field 


an input request: 


If more than one IOB is associated with the DCB, the module 
Ca) checks for a cylinder change in the IOBSEEK field in the 
next IQB by comparing it with the cylinder value in the 
DCBFDAD field in the DCB, and (b) copies the IOBSEEK field 
in the next IOB into the DCBFDAD field in the DCB. 


If only one IOB is associated with the DCB, the module (a) 
checks for a cylinder change by comparing the cylinder value 
in the IOBSEEK field in the IOB with the cylinder value in 
the DCBFDAD field in the DCB, and (b) copies the CCHHR 
portion of the DCBFDAD field in the DCB into the CCHHR 
portion of the IOBSEEK field in the IOB. 


an input request, and for an output request: 


If a change in cylinder value was found for an input 
request, or if the updated DCBFDAD value indicates record 1 
on track 0 for an output request, and in either case the 
cylinder value is on a page boundary (Cevenly divisible by 
8), the DEBXFLG1 field in the DEB extension is checked for 
an MSS window processing request. If such processing is 
indicated, the ICBCHKAR macro is issued to invoke SVC 126, 
which will relinquish the processed window and acquire the 
next one. A GETMAIN for a l2-byte SVC 126 parameter list is 
issued before ICBCHKAR is issued. A related FREEMAIN is 
issued upon return from SVC 126. 


If the number of requests CICQNOQ) equals the maximum number 
of requests CICQMAXQ), it does the following; otherwise, it 
increases ICQNOQ by 1 and returns to the caller. 


It uses the compare and swap (CS) instruction to attempt to 


chain the IOB to the active IOB queue as the last IOB 
CICQENDA). If the swap is not successful, the IOB address 
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is placed in the ICQE CICQFIRST and ICQENDA), and an EXCPVR 
SVC is issued. 


After issuing the EXCPVR SVC Cor if the swap is successful), 
the module returns to the caller. 


End-of-Block Module IGG019T2: The track-overflow, end-of-block 
routine processes channel programs for output data sets whose 
blocks may overflow from one track onto another (see Figure 10). 
Such a block is written by a channel program consisting of a 
channel program segment for each track to be occupied by a 
segment of the block. The track-overflow, end-of-block routine 
computes the address of each track written on; to progress from 
track to track (€to continue writing successive segments of one 
block), the channel program built by the SIO/pagefix appendage, 
IGGO19BX, uses the search command with the multiple-track (M/T) 
mode. 


a - Block Length is Less Than Track Balance 
(No Overflowing Segment) 


b = Block Length is Greater Than Track Balance 
(First Segment Overflows Track) 


| 


Data (Continued) 


¢ = Block Length is Greater Than Track Capacity 
(Several Overflowing Segments) 


Data (Continued 


Data (Continued 


Data (Continued) 


Figure 10. Track-Overflow Records 


Module IGGO19T2 performs device-oriented processing when track 
overflow is permitted with an output data set. The OPEN 
executor selects and loads this module if the OPEN parameter 
list specifies: 

Output, INOUT, or OUTIN 
and the DCB specifies: 

Track overflow 


The module operates as follows: 


It receives control from a PUT routine when the routine 
finds that a buffer is to be scheduled, or from a WRITE 
routine at the conclusion of its processing. 
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If the user specifies the user-totaling option for the data 
set, IGGO19T2 issues a BALR instruction to the user-totaling 
save routine, IGGO19AX, to place the user's total in the 
user-totaling save area, which is pointed to by the DEB. 


It compares the block length with the space remaining on the 
track last written on. 


It initializes to zero the track overflow data field of the 
IOB extension, IOBTRKOV. The address of the data block and 
the length of the entire block have been placed in IOBCCWl 
by the WRITE or PUT routine. 


If the entire block fits on this track, the module sets 
IOBLFST (that is, the length of the first or only overflow 
segment) to the length of the data block. The module next 
updates the track balance, and then attempts to add the I0OB 
to the active IOB queue. 


If the updated MBBCCHHR (saved in the ICQE) indicates record 
1 on track 0 of a cylinder on a page boundary (Cevenly 
divisible by 8), a test is made for MSS window processing. 
If such processing iS indicated in the DEBXFLG1 field of the 
DEB extension, the ICBCHKAR macro is issued to invoke SVC 
126, which will relinquish the processed window and acquire 
the next one. A GETMAIN for a 12-byte SVC 126 parameter 
list 1s issued before ICBCHKAR is issued. A related 
FREEMAIN is issued upon return from SVC 126. 


If at least one data byte Cincluding the key, if any) fits 
on this track, the module sets IOBLFST to the key length 
plus the data length of the segment of the block which fits 
on the track and tests for another track in the same extent. 


If the next track is in this extent, the module compares the 
remaining block length with the track capacity. 


Tests are made to determine if MSS window processing 1s 
needed. If the updated MBBCCHHR (saved in the ICQE) 
indicates record 1 on track 0 of a cylinder ona page 
boundary Cevenly divisible by 8), a test 1s made for MSS 
window processing. If such processing 1S indicated in the 
DEBXFLG1 field of the DEB extension, the ICBCHKAR macro is 
issued to invoke SVC 126, which will relinquish the 
processed window and acquire the next one. A GETMAIN for a 
12-byte SVC 126 parameter list is issued upon return from 
SVC 126. The module then proceeds as it does when at least 
one byte fits on the track. 


If the remainder of the block exceeds the track capacity, 
the module sets IOBLMID Cthat is, the length of the middle 
segment) to the track capacity. The module next increases 
IOBNMID (that is, the number of middle segments) by 1 and 
increases IOBNINCL (that is, number of segments written on 
the cylinder that contains the first segment) by 1 if this 
segment is to be written on the same cylinder as the first 
segment. Next, the module determines whether the next track 
is in this extent. 


If the remainder of the block is less than the track 
capacity, the module sets IOBLLST (that is, the length of 
the last overflow segment) to the data length of the last 
segment. The module next increases IOBNINCL if the last 
segment is to be written on the cylinder that contains the 
first segment. Finally, the module updates track balance 
and attempts to add the IOB to the active IOB queue. 


If the next track is not in this extent, the module sets the 
CCW command code in IOQBCCW1 to "erase" (X'01') and attempts 
to chain the IOB to the active IOB queue. After either 
successfully chaining the IOB or issuing an EXCPVR SVC, the 
module waits for the requests's completion (Cand for the 
completion of all previous IOBs on the active IOB queue). 
Completion iss posted in the SAMB IOB's ECB, which is located 
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at ICQECB. This process erases all unused data tracks at 
the end of the extent: The track overflow record is too 
long and cannot fit in the current extent, but must be 
written in the next extent. After the ICQECB is posted 
(that is, the queue of IOBs is empty), the module tests for 
another extent. 


e If there is another allocated extent on this volume, the 
module reconstructs the IOBTRKOV field in the IOB extension 
rte proceeding as it does when at least one byte fits ona 

rack. 


e If there is no other allocated extent on this volume, an 
end-of-volume condition exists. The module sets the 
DCBCIND1 field in the DCB and the CSW field in the IOB to 
show end-of-volume, and returns control to the PUT or the 
WRITE routine without attempting to add to the active IOB 
queue. The EOV condition is eventually recognized and 
processed—in QSAM by the synchronizing routine, and in BSAM 
by the CHECK routine. 


SYNCHRONIZING-AND-ERROR-PROCESSING ROUTINES 


A synchronizing-~and-error-processing routine (1) synchronizes 
execution of the processing program with execution of the 
channel programs and (2) performs error processing to permit 
continued access to the data set after an error is encountered 
during the execution of a channel program. An error-processing 
routine performs only the latter function. 


There are five synchronizing-and-error-processing routines. 
(See Figure 11 on page 60.) =These routines: 


e Are unique to QSAM 

° Both synchronize and process errors 

e Receive control from a GET or a PUT routine 
e Are pointed to by an address in the DCB 


There are three error-processing routines. (See Figure 12 on 
page 67.) These routines: 


e Are shared by QSAM and BSAM 
e Only process errors 
e May be either synchronous or asynchronous 


The track-overflow, 3203 and 3211 Printer retry error-processing 
routines are asynchronous. They receive control by being 
scheduled by an abnormal-end appendage. The SYSIN/SYSOUT 
error-processing routine 1S synchronous and receives control 
directly from a GET or PUT routine (QSAM) or from a CHECK 
routine BSAM). 


In some cases the QSAM synchronizing routines issue an SVC 55 
CEOV) to distinguish between permanent error and end-of-volume 
conditions. For a permanent error, the EQV routine returns 
control to the synchronizing routine, which in turn passes 
control to the user's SYNAD routine. If the SYNAD routine 
returns, the synchronizing routine again invokes EOV to 
implement error options. For accept and skip, control returns 
once more to the synchronizing routine. It now operates as when 
it is first entered. 
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For an end-of-volume condition Cunit exception), EOV takes one 
of the following actions: 


1. It may return to the synchronizing routine with a new DEB, 
after restarting channel programs. The synchronizing 
routine then operates as when it is first entered. A new 
volume is being processed, possibly because of a data set 
concatenation with like or unlike attributes. 


2. It may exit to the user's EODAD routine if the condition 
should be treated as end-of-file. 


3. oe will ABEND if unable to take the appropriate action 
above. 


QSAM synchronizing routines have a standardized register usage 
allowing them to be used interchangeably by GET/PUT routines. 
This register usage is shown below: 


Registers Entry Value Exit Value 

0-1 N/A Not restored 

2 DCB pointer Unchanged or restored 

3 Previous IOB-8 (Cor New IOB-8 Cor ICB)? 
ICB) 

4 N7A Unchanged or restored 

5 N7A New buffer address 

6 N/A Unchanged or restored 

7 READ or WRITE CCW Unchanged or restored 
Offset 

8 N/A Caller's base address” 

9-12 User's registers Unchanged or restored 

13 Save area# Unchanged or restored 

14 Caller's return Unchanged or restored 
address 

15 Entry point address Not restored 

Notes: 


3 This value also stored in DCBIOBA. 
- Obtained from save area. 


3 Registers 15-8 must be stored beginning at offset 24 
oe This offset is not the standard one used by the 
system. 


The routines described in Figure 11 are unique to QSAM. One of 
these routines gains control when a GET or a PUT routine finds 
that it needs a new buffer. Figure 11 lists the routines 
available and the conditions that cause a particular routine to 
be used. The OPEN executor selects one of the routines, loads 
it, and puts its address into the DCBGERR/PERR field. 
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Access Method Options Selections 


GET X X X X 
PUT X 
Input, Readback X 
Output X 
Update X 
Variable-length record format 

Spanned records 

Locate operating mode 


* or DATA specified on DD 
statement! 


<x K KM KK 


Modules 

IGGO19AF AF 

IGGO19AQ AQ AQ 
IGGO19AR AR 

IGGO19BQ BQ 


Figure 11. Module Selector—aQSAM 
Synchronizing-and-Error-Processing Modules 


Note to Figure 11: 


1 If SYSOUT is specified on the DD statement, none of the 
synchronizing and error-processing modules are required. 
The necessary routines are contained within the 
compatibility interface processing module, IGGO19DJ (see 
Figure 1 on page 6). 


Synchronizing Module IGGO19AF (Update): Module IGGO19AF finds 
the next buffer and ensures that it has been refilled. Ifa 
unit status prevented refilling the buffer, the module processes 
the pending channel programs according to whether they are 
empty-and-refill or refill-only channel programs. The OPEN 
executor selects and loads this module if the OPEN parameter 
list specifies: 


Update 
and the DCB specifies: 
GET 
The module operates as follows if no error occurred: 


e It receives control when the update GET routine finds that a 
new buffer 1s needed. It also receives control after the 
force-end-of-volume CFEOV) macro instruction is encountered 
in a processing program, once from the update GET routine 
Cwhen the FEQV routine schedules the last buffer) and once 
directly from the FEOV routine Cwhen it awaits execution of 
the scheduled buffers. ) 


e If the next buffer has been refilled, the module returns 
control to the update GET routine. 
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If the channel program for the next buffer has not yet 
completed processing, the module issues a WAIT macro 
instruction. ) 


The module operates as follows if an end-of-volume condition is 
encountered: 


It receives control when the update GET routine finds that a 
new buffer is needed or when the FEOV routine awaits 
execution of the scheduled buffers. 


If the channel program for the next buffer encountered an 
end-of-volume condition, or if this module has control 
because of an FEOV macro instruction, the module finds the 
IOBs flagged for output. It then turns on the write-only 
flag and schedules the IOB for processing by means of an 
EXCPVR macro instruction. 


When all IOBs have been processed, or if none are pending, 
the module passes control to the EOV routine by way of an 

SVC 55 instruction. If this module has control because of 
an FEOV macro instruction, control returns to the routine 

that passed control. 


If a permanent error 1s encountered for a write-only IOB 
scheduled for an end-of-volume condition or for an FEOV 
macro instruction, control passes to the SYNAD routine, if 
one i present. The SYNAD routine returns control to this 
module. 


The module then processes the error option as follows: 
Accept or Skip option: The pending IOBs flagged for 
output are rescheduled for execution using an EXCPVR 
macro instructions. 


Terminate option: Control passes to the EOV routine to | } 
request an ABEND macro instruction. 


The module operates as follows if a permanent error was 
encountered: 


It receives control when the update GET routine finds a new 
buffer is needed. 


If the channel program for the next buffer encountered a 
permanent error and a SYNAD routine is present, the module 
passes control to the SYNAD routine. 


If control returns from the SYNAD routine, or if there is no 
SYNAD routine, the module processes the error option in the 
following manner: 


Accept Option: If the error occurred in the empty 
portion of a channel program, the module resets the IOB 
to indicate read-only and issues an EXCPVR macro 
instruction for it and all following IOBs. 


If the error occurred in the refill portion of a channel 
program, the module posts the current IOB as complete 
without error and issues an EXCPVR macro instruction for 
all the IOBs except the present one. 


The module ensures refilling of the buffer associated 
with the first IOB and then returns control to the 
update GET routine. 


Skip Option: If the error occurred in the empty portion 
of a channel program, the module operates as it does for 


the accept option. ) 
If the error occurred in the refill portion of a channel 

program, the module issues an EXCPVR macro instruction 

for all IOBs. 
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The module ensures refilling of the buffer associated 
with the first IOB and then returns control to the 
update GET routine. 


Terminate Option: If the error occurred in the empty 
portion of a channel program, the module passes control 
to the ABEND routine. 


If the error occurred in the refill portion of a channel 
program, the module finds the end of the empty portion 
of any pending empty-and-refill channel programs, and 
issues an EXCPVR macro instruction for these empty 
channel programs. On execution of all the channel 
programs, the module passes control to the EOV routine 
to request an ABEND. 


Synchronizing Module IGGO19AQ (Input): Module IGGO19AQ finds 
the next input buffer, determines its status, and passes a full 
buffer to the GET routine. If ASCII is used, the entire input 
buffer is translated from ASCII to EBCDIC. If ISO/ANSI/FIPS 
spanned record format (DS/DBS) is used, the 5-byte ISO/ANSI/FIPS 
segment control word (SCW) is converted to the IBM 4-byte 
segment descriptor word (SDW), which leaves an unused byte at 
the beginning of each segment. 


The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 


INPUT or RDBACK 
or, 
INPUT for SYSIN (X or DATA specified on the DD statement) 
and the DCB specifies: 
GET 
The module operates as follows for SYSIN data sets: 
e It receives control when the SAM subsystem interface 


CSAM-SI), QSAM processing module IGGOIL9DJ, detects an 
end-of-data condition. 


e It loads the DCB address into register 1 and issues an EOV 
SVC 55 instruction. Control is returned to this module only 
if the SYSIN data set is concatenated to another input data 
set. 

e If control is returned to this module, the EOQV close bit is 


set in the DCBOFLGS field. A test is made to determine if 
the unlike attribute bit (DCBOFLGS) is set. If it is, 
control is returned to the processing program. If not, a 
branch is taken to the GET routine to reschedule the last 
GET request before returning to the processing program. 


If a SYSIN data set was not specified, the module operates as 
follows: 


e It receives control when a GET routine determines that a new 
buffer is needed. 


° It finds the next IOB and tests the status of the channel 
program associated with that IOB. 


e If the channel program has not yet completed processing, the 
module issues a WAIT macro instruction. 


e If the channel program has been executed normally, the 
module uses XLATE i1f necessary to convert ASCII records to 
EBCDIC, then updates the DCBIOBA field to point to this IOB, 
and returns control to the GET routine. If format-D records 
are being read, the record descriptor words are first 
converted from decimal to binary code. 
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e If the channel program has been completed normally, and if 
the buffer contains a DOS checkpoint record, tape files 
only, the module returns control to the GET routine. | | 


e If an error occurred during the execution of the channel 
Program, the module issues an SVC 55 instruction to pass 
control to the EOV routine. EOV returns with a new DEB only 
if another volume is allocated to the data set or if another 
input data set is concatenated with it. In that case, EOV 
has rescheduled the purged channel programs. If EOV returns 
with a nonzero value in register 15, the DEB has not been 
changed and the SYNAD routine is to be entered. 


Synchronizing Module IGGO19AR (Output): Module IGGO19AR finds 
the next output buffer, determines its status, and passes an 
empty buffer to the PUT routine. The OPEN executor selects and 
loads this module if the OPEN parameter list specifies: 


Output 
and the DCB specifies: 
PUT 
The module operates as follows: 


® It receives control when a PUT routine determines that a new 
buffer is needed. 


e It finds the next IOB and tests the status of the channel 
program associated with that JOB. 


° If the channel program is not yet executed, the module 
issues a WAIT macro instruction. 


e If the channel program has been executed normally, the 
module updates the DCBIOBA field to point to this IOB and 
returns control to the PUT routine. 

e If the output device is a 3203 or 3211 Printer and three or 
more buffers are being used, the synchronizing module waits 
for two channel programs to be completed before updating the 
DCBIOBA field. 


6 If an error occurred during the execution of the channel 
program, the module issues an SVC 55 instruction to pass 
control to the EOV routine. EOV returns with a new DEB only 
if it is able to allocate another extent or volume to the 
data set. In that case, EOV has rescheduled the purged 
channel programs. If EOV returns with a nonzero value in 
register 15, the DEB has not been changed and the SYNAD 
routine is to be entered. 


Synchronizing Module Module IGGO19BQ (Update): Module IGGO19BQ 
finds the next buffer and ensures that it has been refilled. If 
a unit status prevented refilling of the buffer, the module 
processes the pending channel programs according to whether they 
are empty-and-refill or refill-only requests. The OPEN executor 
selects and loads this module if the OPEN parameter list 
specifies: 

Update 

Locate operating mode 
and the DCB specifies: 

GET 

Variable-length spanned (blocked or unblocked) record format ) 


The module operates as follows if no error occurred: 
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It receives control when the update GET routine finds that a 
new buffer is needed. It also receives control after an 
FEOV macro instruction is encountered in a processing 

program, once from the update GET routine (when the FEOV 
routine schedules the last buffer) and once directly from 

ans ay routine (when it awaits execution of the scheduled 
uffers). 


If the next buffer has been refilled, the module returns 
control to the update GET routine. 


If the channel program for the next buffer has not yet 
executed, the module awaits its execution. 


The module operates as follows if an EOV condition is 
encountered: 


It receives control when the update GET routine finds that a 
new buffer is needed or when the FEOV routine awaits 
execution of the scheduled buffers. 


If the next IOB encountered an EOV condition, the module 
tests whether assembling or updating of a spanned record is 
in process. 


If updating is in process, the module delays the normal EOV 
processing by turning off the error flags in the DCB and 
then returns control to the update GET routine. 


If assembling is in process, the module sets the spanned 
record flag in the IOB and continues to the next step. 


If assembling is in process or if this module has control 
because of an FEOV macro instruction, the module finds the 
IOBs flagged for output. It then sets the write-only flag 
in the IOB and schedules the empty channel programs for 
execution by means of an EXCPVR macro instruction. 


If all empty channel programs have been executed, or if none 
are pending, the module issues an SVC 55 instruction. If 
this module has control because of an FEOV macro 

patie hate control returns to the routine that passed 
control. 


If a permanent error is encountered during execution of 
empty channel programs for an EOV condition or for an FEOV 
macro instruction, control passes to a SYNAD routine if one 
aS ereoen The SYNAD routine returns control to this 
module. 


The module then processes the error option as follows: 


Accept or Skip: The pending empty channel programs are 
rescheduled for execution using EXCPVR macro 
instructions. 


Terminate: Control passes to the abend routine. 


On return of control from the EOV routine the module tests 
whether assembling of a spanned record is in process. If it 
is being processed, the module turns off the spanned-record 
ty Ak the IOB and returns control to the update GET 
routine. 


The module operates as follows if a permanent error is 
encountered: 


It receives control when the update GET routine finds that a 
new buffer is needed. 


If the channel program for the next buffer encountered a 
permanent error and a SYNAD routine is present, the module 
passes control to the SYNAD routine. 
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° If control returns from the SYNAD routine, or if there is no 
SYNAD routine, the module processes the error option in the 
following manner: } 


Accept: If the error occurred in the empty portion of a 
channel program, the module sets the IOB's read-only 
flag and issues an EXCPVR macro instruction for it and 
all following IOBs. 


If the error occurred in the refill portion of a channel 
program, the module posts the current IOB as complete 
without error and issues an EXCPVR macro instruction, 
which reestablishes all the IOBs on an active queue 
except the present one. 


The module ensures refilling of the buffer associated 
with the first IOB and then returns control to the 
update GET routine. 


Skip: If the error occurred in the empty portion of a 
channel program, the module operates as it does for the 
accept option. 


If the error occurred in the refill portion of a channel 
program, the module treats this as a RELSE condition and 
issues an EXCPVR macro instruction, which restarts all 
IOBS on an active queue. 


The module ensures refilling of the buffer associated 
with the first IOB and then returns control to the 
update GET routine. 


Terminate: If the error option occurred in the empty 
portion of a channel program, the module passes control 
to the ABEND routine. 


If the error occurred in the refill portion of a channel } 
program, the module sets the IOB's write-only flag and 

issues an EXCPVR macro instruction for these empty 

channel programs. On the execution of all the channel 

lbs iiang the module passes control to the ABEND 

routine. 


SYSIN/SYSOUT Synchronous-Error-Processing Module IGGO19AH: 
Module IGGO19AH is used in both BSAM and QSAM. It processes 
permanent error conditions detected during the processing of 
requests for a SYSIN/SYSOUT data set. This routine is loaded by 
the SAM-SI GET or PUT routine or by a CHECK module when the 
error is detected, and is entered with a BALR instruction. When 
oe pean returns control to the calling program, the module is 
eleted. 


The module contains an exit routine that is entered from 
SYNADAF. This routine formats the SYNADAF message. The routine 
is entered by SYNCH and its address is found in the SVC exit 
list. It returns control to SYNADAF. 


The module also contains a SYNAD control routine. Upon entry, 
it first checks to see if the user has provided the address of a 
SYNAD routine in the DCB. If no routine is specified, control 
is returned to the calling routine (QSAM EROPT=ACC or SKP) or 
issues an ABEND CBSAM or QSAM EROPT=ABE). 


If a SYNAD routine is specified, IGG019AH operates as follows: 


e The entry point to the SYNADAF exit is stored in the SVC 
exit list. 


e A dummy IOB is formatted. Parameter registers 0 and l are 
loaded with the IOB address (QSAM) or the DECB address : 
(BSAM), the DCB address, and error flags. ; 
e The user's registers are saved in a new save area which 1s 
obtained with a GETMAIN macro instruction. 
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e The current registers are saved in the user's save area and 
the user's registers are loaded and the SYNAD routine is 
entered with a BALR instruction. 


If DCB EROPT is ACC or SKP, the user SYNAD routine returns 
control to IGGO19AH, the register save sequence is reversed, the 
new save area is freed, and control is returned to the calling 
routine. If EROPT is ABE, problem determination message IEC020 
is issued followed by a 001 ABEND. 


See Figure 12 for error-processing module selection. 


Access Method Options Modules 
3203-4 or 3211 Printer IGGO19FS 
*, DATA, or SYSOUT specified on DD IGGO19AH 
statement 


Figure 12. Module Selector—Error-Processing Modules 


IBM 3211 Printer Asynchronous-Error-Pracessing Module IGGO19FS 
(Print Line Buffer Error—Retry): Module IGGOI19FS is 
device-dependent and is scheduled asynchronously by the 3211 
abnormal-end appendage CIGGO1L9OFR, IGGO19CU, or IGGO19V6). The 
module retries operations that result in print line buffer 
parity errors or UCS buffer parity errors, whenever possible. 
When an operation cannot be retried, the printer is reset and 
control is returned to the calling program. 


The module operates as follows: 


e It initializes registers to point to the DCB, ECB, and IOB. 
It then examines sense bytes in the IOB to determine if one 
of the error conditions for which a retry is possible 
occurred. 


e If a UCS buffer parity error is indicated CECB posted in 
error with an X'G1" or X‘'GG'" and the command retry bit is on 
in sense byte 1), the UCS image ID is obtained from the UCB 
located in SYS1.IMAGELIB and loaded into storage. (Failure 
to locate the UCS image in the SYS1.IMAGELIB causes a skip 
to channel 0 command to be issued. This resets the printer 
and the module returns control to the calling program.) An 
IOB and channel program to load the UCS image into the UCS 
buffer on the 3211 are constructed and executed. Ifa 
permanent I/O error occurs during an attempt to load the UCS 
buffer, a skip to channel 0 command is issued to reset the 
printer. The UCS field in the UCB is also set to 0 and 
control is returned to the calling program. If the UCS 
buffer is loaded successfully, a check is made to determine 
the access method CBSAM or QSAM) being used. 


e When QSAM is being used, a check is made to determine if 
three or more buffers were specified in the BUFNO field of 
the DCB macro instruction. (This 1S a condition necessary 
to retry a print line.) After either UCS buffer parity 
errors or print line buffer parity errors, the type of 
scheduling is determined. For normal scheduling, the IOB 
associated with the failing print line is located and the 
channel program for that IOB is reissued once. If the 
channel program is not successful, the next IOB is 
rescheduled if necessary and control is returned to the 
problem program, as though no error occurred. If the 
channel program is not successful, a skip to channel 0 
command 1s issued to reset the control unit and the module 
returns control to the calling program. For chained channel 
scheduling, the portion of the channel program associated 
with the failing print line is reissued. If it is 
successful, a check is made to determine if another chain 
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needs to be started before the return to the problem 

program. If the retry is unsuccessful, a skip to channel 0 

command 1S issued and the module returns control to the ) 
calling program. 


® For BSAM, or for QSAM with fewer than three buffers 
specified, a skip to channel O command is issued and the 
module returns control to the calling program. 


See Figure 12 on page 67 for error-processing module selection. 


Appendages are access method routines that receive control from 
and return control to the I/0 supervisor. They operate in the 
supervisor state. The same appendages are used in QSAM as in 
BSAM. 


An appendage receives control from the I/0 supervisor and tests 
and may alter the channel status word CIOBCSW). The I/0 
supervisor uses the IOBCSW to post the event control block 
CECB). If the SIO appendage receives control from the I/0 
supervisor before the latter starts execution of the channel 
program, it may alter channel commands just before channel 
program execution. The relationship of the I/0 supervisor and 
the appendages 1s shown in Diagram F. 


The I/O supervisor permits an appendage to gain control at 
certain exit points. At that time, the I/’0 supervisor refers to 
the entry associated with that exit in the appendage vector 
table, whose address is in the data extent block (DEB). If an 
entry contains the address of an appendage, control passes to 
it; otherwise, control remains with the I/0 supervisor. 


The I/O supervisor exits where appendages receive control are: | 
® End-of-extent J 
° SIO 


e Pagefix (offset 4 into the SIO appendage if the DEB 
indicates a pagefix appendage exists) 


e Channel end 
e PCI 
e Abnormal end 


The I/O supervisor unconditionally schedules the routine at the 
address associated with the exit in the appendage vector table. 
If no appendage is present, the entry points to an instruction 

that causes immediate return to the I/0 supervisor. 


When a VIO data set is processed, the I/0 supervisor passes 
control to the VIO interface routine (IDDWNIAPP). The appendages 
then receive control from the VIO routine with the same 
interfaces as with the 1/0 supervisor. When some VIO data sets 
are processed (that is, BSAM or QSAM, READ or WRITE, not track 
overflow, not update, and not BSAM create-BDAM data sets), the 
appendages may be loaded but never get control. A special VIO 
routine CIDDNISVR) simulates the I/0 functions and all the 
required actions of the appendages. For more details about VIO 
processing and modules, see VIO Logic. 


Appendages differ from other sequential access method routines 

that are loaded by the OPEN executor into processing program 

virtual storage. They differ because they operate asychronously 

with the processing program. The events that cause appendages 

to gain control depend on the progress of the channel program, ) 
not on the progress of the processing program. Other appendages 

operate by running enabled under an SRB 
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The OPEN executor selects and loads all the appendages to be 
used with a DCB. No appendage, one appendage, or several 
appendages may be used with one DCB. The OPEN executor places 
the addresses of the required appendages into the various fields 
of the appendage vector table. Figure 13 on page 71 lists the 
appendages and the conditions that cause the different 
appendages to be used. The appendages are grouped according to 
the condition detected by the I/0 supervisor before control is 
passed to the appendage. Note that some appendages have entry 
points for more than one of the conditions checked by the I/0 
supervisor. 


How to Read Compendiums 


The compendiums Cor hierarchic tables) used to illustrate the 

following appendages do not usually show all the exits and 

entrances to a given module. A compendium depicts the flow of 

Sue among subroutines, that relates to a particular 
unction. 


Each block in a compendium is associated with a subroutine name. 
The blocks are nested Cindented) to show the sequence of calls. 
For example, in the following diagram, subroutine "A" at some 
Point in its processing calls subroutine "™B,™" and subroutine ™B" 
at some point in its processing calls subroutine "C." Unless 
otherwise indicated by an exit indicator, the called subroutines 
always return control to the calling subroutines in the sequence 
in which they are called. 







1. Subroutine A 








2. Subroutine B 


3. Subroutine C 
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In many instances, a call to a subroutine is conditional. In 

these cases, the condition that must be met is shown in the 

block that represents the calling subroutine. Dotted lines ; 
delineate the calls affected by a given condition. This is 

1llustrated in the following example: 






1. Subroutine X 


Invalid Address 
2. Subroutine Y 










3. Subroutine Z 


In this example, subroutine "Y™" is called when an invalid 
address is detected, and subroutine "Z" is always called. In 
either case, subroutine "YY" and "Z" always return control to 
subroutine ™X." 


Each subroutine 1s numbered to key it to the extended 

description on the page that faces the diagram. The extended 

description provides details about the conditions that exist 

when a call is made and about the general processing that is ) 
performed by the subroutines. 


Start I70 (SIO) Appendages 


Start I/0 (SIG) appendages, if present, gain processor control 
when the start 1/0 subroutine of the EXCP supervisor reaches the 
start I/O appendage exit. The following appendages set channel 
Program entries: 


e IGGO1YCL. This appendage causes the next line to print at 
the top of a new page if a printer overflow condition was 
encountered in the execution of the last channel program. 


e IGGO19BX. This is the SI]0/pagefix appendage. It checks the 
validity of I/0 requests, and, during pagefix processing, it 
passes control to IGGO19BY. It is loaded for all 
direct-access processing except BDAM create. 


e IGGO1SBY. This module processes pagefix requests passed to 
it by IGGO1LOBX. It builds real-address programs and 
maintains pagefix lists. It is loaded for all direct-access 
processing except BDAM create. 


All control blocks and data areas used by the I/0 
interruption supervisor and appendage modules must be mapped 
into real storage. If they are not and the I/0 interruption 
supervisor encounters a page exception, the task that 
requested the I/0 is abnormally terminated. The EXCP 
portion of the I/0 supervisor determines that certain 
control blocks and data areas will be referred to during 
later processing. 


J 
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Access Method Options Selections 
Input, INOUT, OUTIN X X X X 
READBACK X 
Create BDAM X 
RECFM=FB X 
RECFM=V X X 
RECFM=VS 
DASD X 
Printer X 
Chained scheduling X X 
3211 X 
Magnetic tape COPTCD=H) X X 
V=R X 
Appendages entered from Pagefix Exit: 
IGGO19BX! BX 
IGGO19BY? BY 
Appendages entered from SIO Exit: 
IGGO19BX? BX 
IGGO19BY?! BY 
IGGO19CL CL 


Appendages entered from Channel End 
Exit: 


IGGO1LOBT BT 

TGG019B2Z* BZ 

IGGO019CI CI 

IGGO19CJ CJ 

IGG019CU CU 

IGGO1IEI EI 
IGGOLIEJ EJ 
IGG019V62 V6 

Appendages entered from PCI Exit: 

IGG019V6 V6 


pee cucaaes entered from Abnormal End 
xit: 


IGG019BZ? BZ 





Figure 13 (Part 1 of 2). Module Selector——Appendages 
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IGGO19CU 
IGGO19EI* 
IGGO19EJ4 
IGGO19FR 
IGG019V62 


Figure 13 (Part 2 of 2). 


Notes to Figure 13: 
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Selections 
CU 


EJ 
FR 
V6 


Module Selector—Appendages 


The module has multiple entry points. The module is 
described in "Start I/0 (SIO) Appendages." 


The module has multiple entry points. The module is 
described in "Program Controlled Interruption Appendages." 


The module has multiple entry points. The module is 
described in "Channel-End Appendages." 


Appendage IGGO19CL (SIO-—-PRTOV): Appendage IGGOI19CL causes a 


skip 


to the top of a new page with the first channel program 


following a printer overflow condition. The OPEN executor 
selects and loads this appendage for use as the SIO appendage if 
the DCB specifies: 


Printer 


The appendage operates as follows: 


72 MVS/XA SAM Logic 


It tests to see if the EXCP was issued from an SVC routine. 
If so, it effects a normal return to EXCP. 


The appendage tests the IOB to determine whether a PRTOV 
macro instruction was issued with this PUT or WRITE macro 
instruction. 


If a PRTOV macro instruction was not issued, the appendage 
returns control to the EXCP supervisor immediately. 


If the PRTOV macro instruction was issued, the appendage 
resets the PRTOV bit in the IOB and tests the DCBIFLGS field 
to corounane whether a printer-overflow condition has 
occurred. 


If printer-overflow has not occurred, the appendage returns 
control to the EXCP supervisor. 


If printer-overflow has occurred, the appendage resets the 
DCBIFLGS field, inserts the "skip-to-1" command byte into 
the channel program, updates the IOB channel program 
start-address field and returns control to the EXCP 
supervisor. 
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EXCPVR Processing Appendages 


Modules IGGO19BX and IGGOI19BY are the DASD SIO/pagefix 
appendage. They operate in conjunction with the DASD 
channel-end/abnormal-end appendage CIGGO19BZ) and the DASD 
end-of-block modules (IGGOI19TV and IGGO19T2) to process IOBs on 
an active IOB queue. The active IOB queue is addressed by the 
ICQE. 


An end-of-block module forms the active IOB queue, addressed by 
the ICQE, and issues an EXCPVR SVC. For QSAM, ICQMAX@ is set to 
BUFNO minus 1 with a limit of 29. The end-of-block module 
passes a group of requests to EXCPVR by queuing the requests 
until it gets the number of requests equal to ICQMAX@ plus l. 
This ensures that the requests are always passed in groups. The 
EXCPVR processor passes control to the pagefix appendage entry 
of IGGO1LOBX. 


Module IGGO19BX passes control to module IGGOILOBY which 
constructs a channel program in the SAMB. The channel program 
serves the requests that are represented by as many IOBs on the 
active IOB queue as possible. Module IGGOIL9BY also builds a 
pagefix list in the SAMB for the user buffers referred to by the 
channel program. 


The address of the pagefix list is returned to the EXCPVR 
processor, which fixes the pages in the list (that is, makes the 
pages in virtual storage temporarily not movable). The EXCPVR 
processor then passes control to the SIO appendage entry of 
IGGO19BX. The SIO appendage completes construction of the 
channel program by replacing the virtual addresses of buffers in 
the CCWNs indirect address word CIDAWN) lists built in the SAMB. 
When the SIO appendage returns to the EXCPVR processor, the 
real-address channel program is executed. The EXCPVR processor 
returns to the caller, an end-of-block module. 


While the channel program is running, more IOBs might be added 
to the end of the active IOB queue Caddressed by the ICQE) as a 
result of additional READ, WRITE, GET, and PUT requests against 
the DCB. 


When channel end occurs for the channel program, the EXCPVR 

processor passes control to the channel-end appendage entry of 

IGGO19BZ. The channel-end appendage posts the ECBs for those 

IOBs on the active IOB queue whose requests were satisfied by 

ene channel program, and then removes those IOBs from the active 
queue. 


If no errors were encountered and there are no more IOBs on the 
active IOB queue, the channel-end appendage sets the 
EXCPVR-required flag CICQEXND, the high-order bit of ICQENDA in 
the ICQE) and returns normally to the EXCPVR processor. The 
EXCPVR processor terminates processing for the EXCPVR SVC, and 
then returns to the caller. 


If there are more IOBs on the active IOB queue, the channel end 
appendage takes the "re-EXCPVR®™ return to the EXCPVR processor. 
The EXCPVR processor passes control to the SIO appendage 
CIGGO19BX), which processes the IOBs that remain on the active 
IOB queue. (The pagefix appendage is not entered for 
"Mre-EXCPVR" processing. ) 


For a "re-EXCPVR™ entry, the SIO appendage builds a new channel 
program to serve as many of the IOBs on the active IOB queue as 
possible, and builds a pagefix list for the user buffers 
referred to by the channel program. The pagefix list is 
compared to the previous list, and the system pagefix and 
pagefree routine is called as needed: If the two pagefix lists 
contain only one entry and the entries are identical, no action 
is taken; otherwise, the old pagefix list is pagefreed, and the 
new pagefix list is pagefixed. IDAW lists are built for the new 
channel program. When the SIO appendage returns to the EXCPVR 
processor, the channel program is executed. 
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The process of building a channel program to serve some (Cor all) 
of the IOBs, executing the channel program, posting and freeing 
the IOBs served, and building a new channel program to serve 
additional IOBs might continue indefinitely. The process 
continues for as long as the user's program schedules IOBs (that 
is, a eae Te to the end of the active IOB queue Caddressed by 
the IC ; 


If the active IOB queue empties, an EXCPVR SVC starts the 
Process again when the user's program makes a new request (that 
is, issues a READ, WRITE, GET, or PUT macro). 
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Pagefix Appendage (PGFXAPP): This compendium illustrates the pagefix appendage. 





1 PGFXAPP 
Return if EXCP 


Invalid EXCPVR 


2 CALLRTM 







ABEND 400 














3 CHKPURGE 


Invalid EXCPVR 


See SIOAPP 


8 Determine 
Pagefix List 


9 Return 
Pagefix List 







ABEND 172 
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Appendage IGG019BX/IGGO19BY 
(SIO/Pagef1ix) 


The OPEN executor selects and loads this 
appendage for use as the SIO appendage 
if the DOB specifies direct-access 
processing. 


Module IGGO19BX processes SIO requests. 
If the pagefix entry is used by the 
calling program, module IGGO19BX passes 
control to module IGGO19BY, which 
completes the pagefix processing. 

Module IGGO19BX processes the SIO 
requests. Note that these modules share 
several common subroutines during SIO 
and pagefix request processing. 


The pagefix appendage (CPGFXAPP) operates 
as follows: 


l. If flag RQE114 is on, EXCPVR SVC was 
issued. If flag RQE114 is off, an 
EXCP SVC was issued and is ignored 
by this appendage. Registers 10 and 
ll are set to zero to indicate, on 
return to EXCP, that no pagefix list 
needs to be established. 


2. If the DEBXSAMB field value is equal 
to the SAMBREG value, the EXCPVR 
request is against the SAMB IOB. If 
the SAMB IOB is not referred to by 
the EXCPVR request, the CALLRTM 
macro is issued (with abend code 
400). 


3. The CHKPURGE routine is called. 


a. The caller's protect key is 
saved, if necessary, in the 
SAMB, and is valid until the 
next EXCPVR SVC is issued. 


b. If this is an invalid EXCPVR 
SVC, and it was issued before a 
previous one completed, the 
CALLRTM macro is issued (with 
abend code 172). 


c. The flag, SAMPSTNX, is set off 
if a POINT or WRITE was issued. 


d. The flag, SAMSMF, is set on if 
the SMF EXCP count is to be 
updated. 
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e. If a purged re-EXCPVR request 
must be re-created, CHKPURGE 
determines what, if any, 
modifications to the SAMB and 
the first IOB in the active IOB 
queue are required. 


The IKNIT routine is called and 
initializes SAMB fields and flags, 
and builds a new channel program. 


a. For buffer DASD, builds prefix 
for buffered DASD. 


b. For nonbuffered DASD, builds 
standard prefix. 


The CKVIORPS routine is called to 
point the IOB to the correct CCW for 
RPS and non-RPS DASD. 


The SEGTEST routine is called to 
test if a segment process is 
beginning or ending. If so, SAMB 
fields are adjusted for this and 
control is returned to the pagefix 
appendage (PGFXAPP). 


If an end-of-data condition has not 
been detected (flag SAMPSTNX is 
zero) or if the data set is open for 
update processing, the CPBLD routine 
is called to satisfy I/0 requests on 
the ICQE. 


The address of the pagefix list and 
its size are determined and placed 
in registers 10 and 1l 


a. If the CPBLD routine was called, 
and the device is not a VIO 
device and the program is not 
running in a V=R region, the 
pagefix list address and length 
are obtained from the SAMB. 


b. Otherwise, there is no pagefix 
list, and registers 10 and 1] 
are zeroed. 


EXCPVR returns control with the 


pagefix list address and length in 
registers 10 and 1l. 
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SIO Appendage (SIOAPP): 








1 SIOAPP Return 
if EXCP or if 

PGFXAPP issued 
CALLRTM 


No channel 
program to be 








Re-EXCPVR entry 
3 New channel 
program to be 
built 









5 SETFRR 
6 CPBLD(see CPBLD) 


If not VIO or V=R 
7 RESETPFX 


8 CALLRTM 
Page fix/free error 


EXCPVR entry 

9 New channel 
program built by 
the Pagefix 

Appendage 


10 SETFRR 















program built 





12 BLDIDAL 


13. VALCKBUF 
14 CNSTIDAL 


15 Process all 
CCWs 


16 DLTFRR 


17 No channel 
program built 


18 POSTUIOB 
19 POSTSIOB 


20 Return to caller 
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This compendium illustrates the SIO appendage. 





2 
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The SIO appendage (SIOAPP) operates as 
follows: 


1. 
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If flag RQE114 is on, an EXCPVR SVC 
was issued. If flag RQE114 is off; 
an EXCP SVC was issued and is 
ignored by this appendage. 


If flag SAMCLRIM is on, the pagefix 
appendage issued the CALLRIM macro, 
and control is returned to EXCPVR 
using the return offset established 
by the CALLRIM routine. Otherwise, 
the return offset is set to zero, 
which is the normal return to 
EXCPVR. The pagefix list used for 
the previously executed channel 
program is saved. Otherwise, 
Processing continues with Step 2 or 
Step 8. 


If flag SAMSIO is on, a re-EXCPVR 
exit was taken from the channel 
end’abnormal end appendage, and the 
channel program in the SAMB is to be 
executed without modification by the 
SIO appendage. The process that 
rebuilds the channel program is 
skipped, and SIO appendage 
processing resumes with Step 20. 


If flag SAMPSTNX is on Can 
end-of-data condition was previously 
reached) and if the data set is not 
open for update processing, no 
channel program is built, and 
processing resumes with Step 17. 


If flag SAMACT is on, this is a 
re-EXCPVR and a new channel program 
must be built. 


The IKNIT routine is called. It 
initializes SAMB flags and fields 
for building a new channel program. 


The SETFRR routine is called. An 
FRR routine is established prior to 
building a new pagefix list in 
CPBLD. 


The SIO appendage calls the CPBLD 
routine (described below) to build a 
channel program and pagefix list. 


If a VIO device is being accessed or 
if the buffers are in a V=R region, 
no pages are fixed and the pagefix 
Processing is skipped; otherwise, 
the RESETPFX routine is called. The 
entries in the new and old pagefix 
list are compared. If each list has 
one entry and the entries are 
identical, processing continues. 
Otherwise, the saved pagefix list is 
pagefreed and the new pagefix list 
is pagefixed. 


CALLRTM is called if any error is 
encountered page freeing of page 
fixing CABEND 800). Control 
continues with Step ll. 


10. 


ll. 


l2. 


13. 


14. 


15: 


16. 
1 


18. 


19. 


20. 


1977,1985 


If the SAMACT flag is not on, this 
is an EXCPVR entry and a new channel 
program has been built by the 
pagefix appendage. SAMACT is set 
on. 


The SETFRR routine is called prior 
to building IDA words and validity 
checking buffers. 


If no channel program was built 
CSAMSEGCT = 0), no IDA words are 
built; otherwise, BLDIDAL routine is 
called. 


Each CCW with an IDA flag set to 1 
is processed by BLDIDAL. If the 
caller's protect key is zero and if 
the caller's region is V=R, buffer 
validation is not performed. 


Otherwise, the VALCKBUF routine is 
called and the SIO appendage checks 
the validity of the CCW's buffer 
address. 


If a VIO device is being accessed or 
if the buffers are ina V=R region, 
IDA words are not built for the CCW 
and the CCW's IDA flag is set to 
zero. Otherwise, a list of IDA 
words is built in the next free slot 
in SAMIDAW. The address of the 
newly built IDA words is placed in 
the CCW by the CNSTIDAL routine. 


If more CCWs in the channel program 
have the IDA flag on, each CCW with 
the IDA flag on is processed by 
BLDIDAL as described in Steps 12 
through 15. 


The FRR routine is deleted. 


If no channel program was built 
CSAMSEGCT zero) or if an end-of-data 
condition has been encountered and 
the SAMB does not contain an 
update-only channel program, 
POSTUIOB is called. 


POSTUIOB posts the first IOB on the 
active IOB queue (pointed to by the 
ICQE). The first IOB's ECB is 
posted with X'G1'. If there is an 
end-of-data condition, the CSW 
indicates a "unit exception" 
condition; otherwise, the CSW 
indicates a "channel program check" 
condition. The return offset is set 
to the “ignore™ return. 


If the “ignore™ return is to be 
taken CSAMRTNOF set to the ignore 
return offset), the POSTSIOB routine 
is called and the SAMB IOB is posted 
with X'41*. 


The return offset Cestablished in 


SAMRTNOF) is added to the return 
address. SIOAPP returns to EXCPVR. 
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The Channel Program Build Routine (CPBLD): 


Program Build routine. 






2 CKRUIOB 


CALLRTM 


4 CALCROOM 


CALCIDAL 


5 VIOVEQR 
6 BLDPFX 


E CHKEXT 


8 Loop through all 
IOBs on ICQE 








400ABEND 
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This compendium illustrates the Channel 
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The channel program build (CCPBLD) 
routine operates as follows: 


1. The CPBLD routine obtains the first 
TCoES. the queue Cpointed to by the 


2. The CKRUIOB routine is called. It 
checks the validity of the IOB. The 
IOB is checked to see that it is 
within the storage area obtained for 
the ICQE and IOBs during OPEN 
processing. If the IOB is not 
within the expected storage area, an 
ABEND with code 400 is scheduled by 
calling the CALLRIM routine. 


3. CKRUIOB moves the IOB's data to the 
SAMB IOB; flag byte IOBNFLGI1 and 
data in the IOBEX are moved from the 
user IOB to the SAMB IOB area. 


4. The CALCROOM routine is called to 
see if a channel program for this 
IOB will be built. It inspects the 
type of request and the current 
status of the SAMB, and determines 
whether there is enough room to 
build IDA words for the buffer (Cin 
routine CALCIDAL). CALCROOM also 
checks to see if there is enough 
room for the CCWs needed. If the 
channel program for the request 
cannot be built, control is returned 
to the caller of CPBLD. 


5. CALCROOM tests to see if a VIO 
device is being accessed or if the 
buffers are ina V=R region. If 
either condition is so, VIOVEOR is 
called to validity check buffers. 


a. It tests to see if the caller 
key 1s zero. If so, no 
restriction is placed on the 
buffer location. 


b. If a VIO device is being 
accessed, the buffer address may 
be anywhere except in the CSA. 
If the buffer address (Cin 
IOBCCW1) overlaps the CSA, the 
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local lock does not ensure that 
pages remain fixed; the IOB‘'s 
channel program is not built, 
and control is returned to the 
caller of CPBLD. 


c. If executing ina V=R region, 
and the device being accessed is 
not a VIO device, the buffer 
address must be within the V=R 
region boundary. If the buffer 
extends beyond the end of the 
V=R region, the IOB's channel 
Program is not built, and 
control is returned to the 
caller of CPBLD. 


If neither a VIO device nor a V=R 
region, BLDPFX is called. The 
pages, which include the buffer, are 
added to the pagefix list. If there 
isn't enough room in the pagefix 
list to add the buffer's pages, the 
IOB's channel program is not built, 
and control is returned to the 
caller of CPBLD. 


The BUILDCCW routine is called. 


a. It builds the CCWs which satisfy 
the IOB's request, and adds the 
CCNs to the channel program. 


b. In the CHKEXT routine, if an 
invalid IOBSEEK address is in 
the user IOB, the CCWNs won't be 
built and control is returned to 
the caller of CPBLD. An invalid 
IOBSEEK address can occur only 
for the first IOB on an active 
IOB queue. 


If the IOB just processed is not the 
last IOB on the active IOB queue 
Cpointed to by the ICQE), the next 
IOB on the queue is obtained. The 
CPBLD routine continues processing 
each IOB on the active IOB queue 
Ccommencing with 2 above) until no 
more IOBs remain to be processed. 
Control is then returned to the 
caller of CPBLD. 
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Channel-End Appendages 


Channel-end appendages, if present, gain processor control when 
the I/0 interruption supervisor reaches the channel-end 
appendage exit. For data sets, appendages distinguish between 
valid and invalid block lengths by computation. 


The channel-end appendages are: 


IGGOISBT This appendage schedules the writing of successive 
blocks when a record has to be segmented. 


IGGO19CI This appendage distinguishes between wrong-length and 
truncated blocks when fixed-length blocked records are 
being read using normal channel program scheduling. 


IGGO19CJ This appendage distinguishes between wrong-length and 
variable-length blocks when variable-length records 
are being read using normal channel program 
scheduling. 


IGGO19CU This appendage disconnects chained channel programs 
that have executed, posts their completion, and 
performs normal channel-end and abnormal-end appendage 
processing. 


IGGO1ISEI This appendage distinguishes between fixed, 
fixed-blocked, and undefined user blocks and embedded 
DOS checkpoint records. In the case of fixed-length 
blocked records, it also distinguishes between 
wrong-length and truncated blocks. 


IGGO1SEJ This appendage distinguishes between wrong-length and 
lea Aah olga la blocks and embedded DOS checkpoint 
records. 


IGGO19BZ This appendage handles channel-end processing and 
abnormal-end processing for EXCPVR requests. 


Appendage IGGOL9SBT (Channel End-Create BDAM): Module IGGO19BT 
schedules the writing of successive blocks when a record has to 
be segmented. The OPEN executor selects and loads this module 
if the DCB specifies: 


Write CLoad) 
Variable-length spanned record 
The module operates as follows for a channel-end condition: 


e It receives control when the I/0 supervisor arrives at the 
channel-end exit. 


e It determines whether the WRITE was WRITE-SZ. If it was 
WRITE-SZ, the routine returns control to the I/0 supervisor. 


e When the WRITE-SF is issued, it determines whether the block 
was spanned record. If not, the routine returns control to 
the I/70 supervisor. 


e When a spanned record is being processed, the routine 
determines whether the entire record has been written. If 
the record has been written, the routine returns control to 
the I/O supervisor. When the entire record has not been 
written, the routine schedules the asynchronous exit 
routine. The asynchronous exit routine will schedule an 
EXCP ia write a middle segment or the last segment of the 
record. 
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Appendage IGGO19CI (Channel End-—Fixed-Length Blocked Record 
Format): Appendage IGGO19CI distinguishes between valid 
wrong-length blocks and truncated blocks. The OPEN executor 
selects and loads this appendage if the OPEN parameter list 
specifies: 


Input, readback, INOUT, or OUTIN 
and the DCB specifies: 
Fixed-length blocked records 
The channel-end appendage operates as follows: 


e It tests to see if the EXCP was issued from an SVC routine. 
If so, it effects a normal return to EXCP. 


e It performs length checking for fixed-length records. The 
SLI bit in the read-data CCW is left off. If a wrong length 
record is read, the command chaining bit is turned off and 
the CSW reflects channel end and wrong length indication. 
The channel-end appendage determines whether the record 1S a 
valid short block. For standard format-F records with a 
valid short block, the module turns on the EOV bit in the 
DCB and ECB. 


e For nonstandard format-F records with the track-overflow 
feature, a short block is treated as a valid record. 


Appendage IGGO19CJ (Channel End-—Variable-Length Record 
Format): Appendage IGG019CJ distinguishes between valid 
wrong-length blocks and variable-length blocks. The OPEN 
executor selects and loads this appendage if the OPEN parameter 
list specifies: 


Input, INOUT, or QUTIN 
and the DCB specifies: 

Variable-length records 
(Under these conditions, the SLI flag is off in the read CCW.) 
The module performs a length check for variable-length records. 
The channel-end appendage operates as follows: 


@ It receives control when the I/0 interruption supervisor 
arrives at the channel-end exit. 


@ It tests to see if the EXCP was issued from an SVC routine. 
If so, it effects a normal return to EXCP. 


e If the appendage finds a unit-exception bit on in the 
channel status word, it returns control to the I/0 
interruption supervisor immediately. 


e The appendage calculates the length of the block and 
compares it to that in the block length field. 


° If the lengths are equal, the appendage turns off error 
indications in the ECB and DCB and returns control to I/0 
interruption supervisor. 


e If the lengths are not equal and the device is magnetic 
tape, a check is made to see if the block has been padded up 
to 18 bytes or block size, whichever is less. If so, the 
appendage turns off the error indicators in the ECB and DCB 
and returns control to the I/0 supervisor. If the device is 
not magnetic tape or the block is not padded, control is 
returned to the I/0 interruption supervisor immediately. 

The I/0 interruption supervisor then sets the ECB to show 
that the channel program executed with an error condition. 
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Appendage IGG019CU (Channel End, Abnormal End-~Chained 
Channel-Program Scheduling): Appendage IGGO19CU disconnects 
(parts) chained channel programs that have executed and posts 
their completion; in addition, it performs normal channel-end 
and abnormal-end appendage processing. (For a description of 
the joining process of chained channel-program scheduling, refer 
to the chained channel-program scheduling end-of-block 
routines.) The OPEN executor selects and loads this appendage 
for use as the channel-end and abnormal-end appendage if the DCB 
specifies: 


Chained channel-program scheduling 
The appendage operates as follows: 


e It receives control from the I/0 interruption supervisor 
when the latter arrives at the channel-end and abnormal-end 
appendage exits. 


e It tests to see if the EXCP was issued from an SVC routine. 
If so, it effects a normal return to EXCP. 


e It tests to determine if the CSW and the "First ICB" field 
in the IOB, point to the same channel program. 


° If they do, the appendage continues as it would for a 
channel-end condition. 


e If they do not, the appendage disconnects (parts) the 
channel program (pointed to by the ICB) from the next 
channel program in the chain as follows: 


For input, the appendage tests the IOB for an 
end-of-volume condition. If it exists, the appendage 
continues as it would for a channel-end interruption 
with a permanent buffer. 


For output, or for input without an associated 
end-of-volume condition, the appendage resi ts the 
command in the last CCW from TIC to NOP ane the address 
to the beginning of the next channel program. 


If the device is magnetic tape, it updates the DCBBLKCT 
field in the DCB. 


If a WAIT macro instruction was addressed to this 
channel program, the appendage causes the POST routine 
to perform its processing and to return control to the 
appendage. 


It posts the ICB with the completion code and with 
channel end and updates the IOB SAM prefix to point to 
the next ICB. 


It repeats this disconnecting process until the IOB and the 
CSW point to the same channel program. 


The appendage continues as follows if channel-end processing 
occurred without an error: 


e It sets the IOB and the ICB to show that the channel program 
completed without an error, and resets the IOB to point to 
the next channel program and ICB. 


e If there are more channel programs to be executed, the 
appendage resets the IOB to not-complete and passes control 
to the EXCP supervisor to schedule these channel programs. 


° If there are no more channel programs to be executed, the 
appendage returns control to the I/0 supervisor. 


The appendage continues as follows if the channel-end 
interruption occurred with a wrong-length indication: 
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It determines whether a truncated block has been read. 


If a truncated block has been read in a data set with 
fixed-length blocked standard record format, it sets: 


- The DCB to show an end-of-volume condition 
_ The current ICB to complete-without—error 
— The next ICB to complete-with-error 


- The CSW in the next ICB to show channel end and unit 
exception 


_ It returns control to the I/0 interruption supervisor. 


If a truncated block has been read in a data set with 
fixed-length blocked record format, the appendage sets the 
ICB to complete-without—-error and resets the IOB to point to 
the next ICB and its channel program. The appendage causes 
ale to pass to the EXCP supervisor to restart the 
channel. 


If a block with wrong-length data has been read, the 
appendage continues as it would for permanent errors. 


The appendage continues as follows if channel-end processing 
occurred with an error: 


It isolates the channel program in error by disconnecting it 
from the next one. 


It sets the IOB to point to the channel program in error. 


It sets the DCB to show that the channel program is being 
retried. 


It takes a re-EXCP exit, which causes the error segment to 
be retranslated and retried. 


The appendage continues as follows if channel-end processing 
occurred with a permanent error: 


It receives control after the I/O supervisor error-retry 
procedure is found unsuccessful in correcting the error. 


For a 3211 Printer, it tests to see whether further retry is 
necessary. If the ECB is posted in error with an X'*'41' or 
X'G4G4" and the command-retry bit in sense byte 1 is on, then 
it schedules the asynchronous~error-processing module, 
IGGO19FS, and exits. 


It posts the ICB to show that the channel program was 
completed in error. 


It disconnects the channel program in error from the 
following one. 


It resets the IOB to point to the channel program after the 
one in error. 


It returns control to the I/O interruption supervisor. 


Appendage IGGO19EI (Channel End, Abnormal End—Fixed-Length or 
Undefined-Length Record Format): Appendage IGGOI19EI 
distinguishes between fixed, fixed-blocked, and undefined user 
blocks and embedded DOS checkpoint records. In the case of 
fixed-length blocked records, it also distinguishes between 
wrong-length and truncated blocks. The OPEN executor selects 
and loads this appendage if the OPEN parameter list specifies: 


Input, readback 


and the DCB specifies: 
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OPTCD=H (specified in JCL) 


Magnetic tape ) 
Fixed, fixed-blocked, or undefined-length blocks 


appendage operates as follows: 


It receives control from the I/70 interruption supervisor 
when the I/40 interruption supervisor arrives at the 
channel-end and abnormal-end appendage exits. 


It tests to see if the EXCP was issued from an SVC routine. 
If so, it effects a normal return to EXCP. 


Upon encountering a checkpoint header record, bit 0 in the 
DEBTFLGS field of the DEB is turned on. It is turned off 
when the checkpoint trailer record is encountered. This 
provides the means to differentiate between the user's data 
records and the embedded checkpoint records. 


In the channel-end entry into this appendage, the number of 
bytes read is tested. If 20 bytes were not read and the 
bypass-flag bit in the DEBTFLGS field is off, the appendage 
takes the normal exit to the I70 interruption supervisor for 
fixed-length and undefined-length formats and performs the 
necessary record length check for fixed-block records. If 
20 bytes were read, the record is tested to determine if it 
is a checkpoint header record. If it is not a checkpoint 
header record, the normal exit to the I/0 interruption 
supervisor is taken for fixed-length and undefined-length 
formats, and record length checking for fixed-block formats 
is performed. 


When a checkpoint header record is encountered, the 

bypass-flag bit in the DEBTFLGS field is turned on, the 

DCBBLKCT field is decremented by the value in the IOBINCAM 

field, the "Flags 1-3" fields of the IOB are reinitialized, 
and the IOBERRCT field is set to zero. For QSAM, the IOB 
completion code is set to X'50" and the normal exit is taken 

to the I/0 interruption supervisor. The bypassing of the 
checkpoint records is performed in the QSAM routines. For 

BSAM, the re-EXCP exit is taken to the I/0 interruption 

supervisor. 


The appendage is reentered when the reexecuted channel 
program ends for BSAM or when the rescheduled channel 
program ends for QSAM and, finding the bypass flag on, tests 
for the checkpoint trailer record. If the record read is 
not the trailer record, the DCBBLKCT field is decreased, the 
IO0B-flag fields reinitialized, and the IOBERRCT field is set 
to zero. For BSAM, the re-EXCP exit is taken to the I/0 
interruption supervisor. For QSAM, the IOB completion code 
is set to X'50', and the normal exit is taken to the I/0 
interruption supervisor. This process continues until the 
trailer record is read. When the trailer record is read, 
the bypass flag is turned off, and the above procedure is 
followed. The next entry to this channel-end appendage 
follows the reading of the record immediately following the 
embedded checkpoint records. 


The appendage is entered in the event of an abnormal 
condition arising. If this entry is the result of any 
condition other than a data error, control is returned to 
the I70 interruption supervisor by way of the normal exit. 


If it is a data error, a test is then performed to determine 
if a checkpoint header’trailer record was read. This test 
comprises an initial 12-byte comparison of the record's 
first 12 bytes with the checkpoint identifier 
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Should this comparison fail, a byte-by-byte comparison is 
performed. If 10 or more bytes compare successfully, it is 
then assumed that a header or trailer record has been 
encountered and the appendage returns control to the JI/0 
interruption supervisor. 


Appendage IGGO19EJ (Channel End, Abnormal End-—Variable-Length 
Record Format): Appendage IGGOLJEJ distinguishes between 
variable-length and wrong-length blocks and embedded DOS 
checkpoint records. The OPEN executor selects and loads this 
appendage if the OPEN parameter list specifies: 


and 


The 


Input 

the DCB specifies: 

OPTCD=H (via JCL) 

Magnetic tape 

Variable-length blocks 
appendage operates as follows: 


It tests to determine if the EXCP was issued from an SVC 
routine. If so, it effects a normal return to EXCP. 


It receives control from the I/0 interruption supervisor 
when the I/0 interruption supervisor arrives at the 
channel-end and abnormal-end appendage exits. 


Upon encountering a checkpoint header record, bit 0 in the 
DEBTFLGS field of the DEB is turned on. It is turned off 
when the checkpoint trailer record is encountered. This 
provides the means to differentiate between the user's data 
records and the embedded checkpoint records. 


In the channel-end entry into this appendage the first two 
bytes of the record are tested to determine if it is a valid 
block. (The first 2 bytes of a variable-length physical 
record specify the block length and are used in performing 
length-checking.) The first 12 bytes of a checkpoint header 
or trailer record (which are identical and 20 bytes in 
length) identify it as a header/trailer record. These 12 
bytes are: 
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The first 2 bytes of the checkpoint header record do not 
satisfy the length check as a variable-length record. If 
the first 2 bytes do satisfy the length check, the appendage 
takes the normal exit to the I/O interruption supervisor for 
variable-length records. If the first 2 bytes do not 
satisfy the length check for a variable-length record, the 
number of bytes read is computed. If 20 bytes were not read 
and the bypass-flag bit in the DEBTFLGS field is off, the 
appendage returns to the I/0 interruption supervisor. If 20 
bytes are read, the record is tested to determine if it is a 
checkpoint header record. If it is not a checkpoint header 
record, the normal exit to the I/0 interruption supervisor 
is taken for variable-length formats. 


When a checkpoint header record is encountered, the 
bypass-flag bit in the DEBTFLGS field is turned on, the 
DCBBLKCT field is decreased by the value in the IOBINCAM 
field of the IOB, the "Flags 1-3" fields of the IOB 
reinitialized, and the IOQBERRCT field set to zero. For 
QSAM, the IOB completion code is set to X'50!' and the normal 
exit is taken to the I/’0 interruption supervisor. The 
bypassing of the checkpoint records is performed in the QSAM 
routines. For BSAM, the re-EXCP exit is taken to the I/0 
interruption supervisor. 
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e The appendage is reentered when the reexecuted channel 
Program ends for BSAM or when the rescheduled channel : 
program ends for QSAM and, finding the bypass flag on, tests } 
for the checkpoint trailer record. If the record read is 
not the trailer record, the DCBBLKCT field is decreased, the 
IOB flag fields reinitialized, and the IOBERRCT field is set 
to zero. For BSAM, the re-EXCP exit is taken to the I/0 
interruption supervisor. For QSAM, the IOB completion code 
is set to X'50', and the normal exit is taken to the I/0 
interruption supervisor. This process continues until the 
trailer record is read. When the trailer record is read, 
the bypass-flag is turned off and the above procedure 
followed. The next entry to this channel-end appendage 
follows the reading of the record immediately following the 
embedded checkpoint records. 


e The appendage is also entered in the event an abnormal 
condition arises. If this entry is the result of any 
condition other than a data error, control is returned to 
the I/0 interruption supervisor by way of the normal exit. 


e If it is a data error, a test is then performed to determine 
if a checkpoint header/trailer record was read. This test 
comprises an initial 12-byte comparison of the record's 
first 12 bytes with the checkpoint identifier 
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Should this comparison fail, a byte-by-byte comparison is 
performed. If 10 or more bytes compare successfully, it is 
then assumed that a header or trailer record has been 
encountered, and the appendage returns control to the 1/0 
interruption supervisor. 


Appendage IGG0O19BZ (DASD EXCPVR Channel End and Abnormal End): 

Appendage IGG019BZ does all channel-end and abnormal-end 

appendage processing for EXCPVR requests, for all record ) 
formats. The module includes two entry points: one for 

channel-end processing, and one for abnormal-end processing. 

Separate functions are performed at each entry point, anda 

common routine, CPEND, is called to process the channel program. 
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Channel-End Appendage (CHEND): 


This compendium illustrates the channel-end appendage. 







1 CHEND 






SAMRST on 


2 RESTART 


SAMRST off 


The channel-end appendage (CHEND) for 
EXCPVR requests operates as follows: 


1. It is entered when a channel program 
completes. A test is made to see if 
the channel program resulted from an 
EXCPVR request. If not, the request 
1S ignored and control is returned. 


2. If a previously broken channel 
program is to be restarted (the 
SAMRST flag 1s on), it prepares the 
second half of the channel program 
Cin the SAMB) for execution. The 
only channel program that can be 
broken is a PUTX request (update 
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WRITE with refill READ). When the 
channel program is ready for 
execution, the return offset is set 
to 8 to re-EXCPVR. 


For normal channel-end processing 
CSAMRST off), CHEND calls the CPEND 
routine to process the completed 
Sto program segment(s) in the 


If the return offset is zero, the 
"active”™ flag CSAMACT in the SAMB) 
is set to zero. This allows an 
EXCPVR SVC entry to the pagefix 
appendage. 
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Abnormal-End Appendage (ABNOREND): 
This compendium illustrates the abnormal-end appendage CABNOREND) for 
EXCPVR requests. 





1 ABNOREND 






3. First entry 






4 BREAKCP 









Second entry 


$ CPEND 





The abnormal-end appendage CABNOREND) Gq. 
operates as follows: 


1. ABNOREND verifies that the condition 
resulted from an EXCPVR request, 
and, if not, it ignores the request 


If the request was QSAM PUTX Cupdate 
WRITE with refill READ) and the 
error was in the update WRITE part 
of the channel program, the chained 
program is broken or separated so 
that only the update WRITE portion 


and returns control. 


1s subsequently executed by the 


ERPs. The SAMRST flag Cin SAMB) is 
2. NRF is called. If the error is a set on. If the error occurred in 
"*no-record-found™ condition, and if the refill READ portion of the 
it is expected (update or track channel program, only the READ 
overflow output), the seek address portion 1s reexecuted by the ERPs. 
Cin the SAMB) is updated and the TIC The return offset is left zero to 
command (in the prolog CCW area) is allow ERP processing to occur. 
reset to point to the failing 
channel program segment. The SAMSIO 5. If the appendage is being entered 
flag is set on to indicate that the for the second time, the 
channel program need not be rebuilt abnormal-end appendage calls the 
by the SIO appendage (SIOAPP). CPEND routine to process the channel 
program segments. 
3. If the error is not an expected 
no-record-found condition, and if 6. If the return offset is zero and 
the abnormal-end appendage is being this is the second entry, the 
entered for the first time, the "active" flag CSAMACT in the SAMB) 
BREAKCP routine is called. is set to zero to allow an EXCPVR 
entry to the pagefix appendage. 
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Channel Program Error (CPEND): This Compendium illustrates the CPEND routine of 
IGGO19BZ appendage CEXCPVR requests). 


1 CPEND 






Unrecoverable 
2 CHKIOB pepe 


error ICE 


RTMCALL 400 ABEND 


For each éuccessful 
channel program 
segment 





3 UPDCURR 


4 POST 


5 Update SMF count 


For the error channel 
program segment 


6 UPDCURR 


7 Update SMF count 


8 SMFCALL 


All channel program 
segments successful 


9 CEDE 


Error segment 








10 ERROR 


Il INCLTH 
12 RDCTERR 
13 RDDERR 


Recoverable 
error 





1S CEDE 
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The channel program end (CPEND) routine 
for EXCPVR requests operates as follows: 


1. It is called from the channel-end 
appendage and the abnormal-end 
appendage to process completed 
channel program segments. The CPEND 
routine first processes all 
successfully completed channel 
Program segments in the SAMB, then 


processes any segment that may have 10. 


ended in error. 


2. CHKIOB is called to validity check | 


each IOB. If invalid, the RTIMCALL 
routine issues a 400 ABEND. 


3. UPDCURR is called, and the user IOB 
1s updated to reflect the status of 
its related request. 


G. POST is called, and the user IOB 
related to the completed channel 
program segment is posted as 
successful (X'7F'). The IOB is 
posted by the system post routine, 
IEAOPTB1. The address of the posted 


IOB is saved (in SAMIOBP, in the 12. 


SAMB), and the address of the 
current IOB and the ICQE's pointer 
to the first IOB on the queue 
CICQFIRST) is updated so that it 
points to the next IOB. 


5. After the successfully completed 
user IOB is posted, the SMF count 
Cin SAMSMFCT, in the SAMB) is 
incremented. 


6. For abnormally completed channel 
program segments, UPDCURR is called 
and it is determined which CCWs were 
executed. 


7. The SMF count is updated if the 


error occurred after a read data 13. 
CCW. 
8. When the IOBs of all successful 14. 


channel program segments in the SAMB 
have been posted, the CPEND routine 


calls SMFCALL, if necessary, and 15. 


IEASMFEX is called, passing the EXCP 
count Cin SAMSMFCT, in the SAMB) to 
the SMF routine. 


9. If all channel program segments 
completed successfully, the CEDE 
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routine is called to determine if 
the last posted IOB is the last IOB 
on the active queue. If so, the 
return offset is set to cause a 
normal exit Creturn offset=0) to 
EXCPVR. If there is another IOB on 
the queue, the return offset is set 
to cause a re-EXCPVR exit (return 
offset=8). 


The ERROR routine is called to check 
if the error is recoverable. 


The INCLTH routine checks for 
incorrect-length. Incorrect-length 
indications on variable-length and 
undefined-length records formats are 
accepted, because the CCWs that are 
built do not have the SLI flag set 
on. An incorrect~-length indication 
on a fixed-length standard record 
format is recognized as a software 
end-of-file indication. The "post 
next™ flag (CSAMPSTNX) is set on to 
indicate end of data on the next 
request. 


The RDCTERR routine checks for a 
multitrack READ count error. MbWhen 
the IOB's EOB condition code is 
C'42', end of extent has occurred. 
End-of-extent processing was 
formerly handled by an end-of-extent 
appendage. If another extent is in 
the DEB, the seek address CIOBSEEK) 
is updated. 


The RDDERR routine checks for errors 
on READ DATA or READ KEY AND DATA 
commands. When the command is part 
of a "search previous" operation, 
the seek address is updated to skip 
the record in error and a re-~EXCPVR 
return 1S indicated. 


If the error is recoverable, PQST is 
called (see Step 4%). 


For recoverable errors, CEDE is 
called (see Step 9). 


When the error is not recoverable, 
POST is called and the request's IOB 
is posted with the unsuccessful 
completion code, X'41'. SAMRTNOF is 
set to cause a normal return to 
EXCPVR. 
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Program Controlled Interruption (PCI) Appendage (Execution of Channel Programs 
Scheduled by Chaining) 


If chained channel-program scheduling is used in V=R, its 
address is placed into the appendage vector table for all three 
I/0 interruption supervisor exits: PCI, channel-end, and 
abnormal end. In V=V, only the channel-end and abnormal-end 
entries are made. 


A program controlled interruption (PCI), in the sequential 
access methods, signals the normal execution of a channel 
program that was scheduled by chaining. The interruption occurs 
when control of the channel has passed to the next channel 
program. If the only channel status is PCI, the I/0 supervisor 
performs no processing; if other channel conditions are also 
present, the I/O supervisor processes these in the usual way 
after it regains processor control from the PCI appendage. 


This appendage performs the following three functions: 


e It performs the channel status analysis usually done by the 
I/70 interruption supervisor. The interruption is caused by 
a condition in the logic of the channel program rather than 
a condition in the channel or the device. The condition is 
meaningful only to the processing program (Cin this case, the 
access method routines, or, more specifically, the 
appendage) and has no meaning to the I/O supervisor. 


e It repeats this process for preceding channel programs whose 
PCIs were lost. PCIsS are not stacked. If a channel remains 
masked from the time of one PCI until after another PCI, 
only one PCI occurs. 


e It performs processing normally necessary for other 
interruptions (for example, channel end). Interruptions 
other than PCIs may terminate execution of chained channel 
programs. 


Accordingly, a PCI appendage not only does the processing 
implicit for the logical condition that the interruption signals 
Cnamely, that the preceding channel program executed normally), 
but also extends this processing back to any preceding channel 
programs whose PCI may have been masked and, finally, takes 
processor control at other I/0 interruption supervisor appendage 
exits if chained channel-program scheduling is used. 


Appendage IGGO19V6 (PCI, Channel End, Abnormal End-~Chained 
Channel-Program Scheduling): This appendage is the same as 
IGGO19CU, described above, except that it is loaded into the V=R 
region instead of LPA and uses the PCIPOST macro to post ICBs 
because it does not hold the local lock. When it receives 
control for a PCI interrupt, it processes the ICBs that precede 
the one with the interrupt Cas described above in IGGO19CU). 
When the ICB that had the interrupt is found, the appendage 
returns to the I/0 supervisor. 


Abnormal-End Appendages 


The abnormal-end appendage receives control from the I/0 
interruption supervisor when the latter finds a unit check 
condition in the channel status word (CSW). The appendage for 
this exit is a 3211 error appendage. 


Appendage IGGO1L9FR (Abnormal End-—3211 Printer): Appendage 
IGGO1LOFR schedules the asynchronous error-processing routine 
IGGO19FS when a print line buffer (PLB) parity error or a UCS 
buffer parity error occurs. 
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QSAM CONTROL ROUTINES 


These control routines, shared by QSAM and BSAM, consist of both 
modules loaded by the OPEN executor and macro expansions. The 
selection and loading of one of the modules are performed by the 
OPEN executor and depend on the access conditions; the presence 
of macro expansions depends solely on the use of the 
corresponding macro instruction in the processing program and is 
independent of the presence or absence of modules. 


If a CNIRL macro instruction 1s encountered in a processing 
program using QSAM or BSAM, control passes to a control routine. 
The PRTOV macro expansions place the code to be executed inline 
in the processing program. CNTRL routines pass control to the 
I/O supervisor; the macro expansions return control to the 
processing program. The CNIRL routine for the card reader 
causes execution of a channel program that stacks the card just 
read into the selected stacker. The CNTRL routine for the 
printer causes execution of a channel program with a command to 
space or to skip. The printer overflow macro expansions cause 
testing for the printer-overflow condition. 


There are three CNTRL routines in QSAM; they are load modules. 
Figure 14 lists the routines available and the conditions that 
cause a particular routine to be used. The OPEN executor 


selects one of the modules, loads it, and puts its address into 
the DCBCNTRL field. 


Access Method Options Selections 


CNTRL X X X 
Printer 


Card reader, single X 
buffer 


3525 Cprinting) X 
Modules 

IGGO19CA CA 
IGGO19CB CB 

IGGO1SFA FA 


Figure 14. Module Selector—Control Modules 


There are two PRTOV routines, which are macro expansions. 
Whenever the assembler encounters either of the two macro 
instructions shown in Figure 15, it substitutes the 
corresponding macro expansion in the processing program object 
module. 


Number of : 
Macro Instruction Macro Expansions 
PRTOV—User exit 1 
PRTOV—No user exit 1 


Figure 15. Control Routines That Are Expansions of Macro 
Instructions 
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Control Module IGGO19CA (CNTRL~—Select Stacker-Card Reader): 

Module IGGO19CA permits stacker selection on the card reader. 

The OPEN executor selects and loads this module if the DCB J 
specifies: 


CNTRL 
Card reader 
One buffer 
The module operates as follows: 


e It receives control when the CNTRL macro instruction is 
encountered in a processing program. 


e For QSAM, the module schedules a channel program that stacks 
the card just read, reads the next card into the buffer, 
forces an EOB condition to be recognized by the GET routine, 
and returns control to the processing program. (Card reader 
GET module IGGO19AG depends on the use of this routine to 
refill empty buffers.) 


e For BSAM, the module schedules a channel program that stacks 
the card just read and then returns control to the 
processing program. The READ/NRITE module, IGGO19BA, causes 
a channel program to be scheduled that reads the next card 
into the buffer. 


e If the 3505 or 3525 is specified, processing continues for 
stacker 1 or 2 (whichever is specified in the CNTRL macro 
instruction of the user's program). 


° A test is made to determine if either OMR or RCE is being 


used. 
If either OMR or RCE is specified, the OMR/RCE bit is turned ) 
on in the operation codes of the CCWs. 


Control Module IGGO19CB (CNTRL~~Space, Skip-—Printer): Module 
IGGO19CB causes printer spacing and skipping by use of macro 
instructions; the spacing or skipping to be performed are 
specified as operands of the macro instruction. The OPEN 
executor selects and loads this module if the DCB specifies: 


CNTRL 

Printer 
The module constructs a channel program to control the device, 
issues an EXCP macro instruction, and then returns control to 
the processing program. 


Control Module IGGO1L9OFA: This module performs line control 
functions if: 


e The 3525 is specified 

e A print file is specified 

e CNTRL is specified 

The module operates as follows: 


° The line counter total (CDCBLNP) in the DCB is increased 
according to the specifications in the CNTRL instruction. 


e I/0 macro sequencing is performed when using this module and 

a 3525 associated data set. If an error is detected, an 

abend (003) is issued with a return code of 03. ) 
® If a skip to a channel on the next card is issued by the 


user, this module issues an EXCP to feed the next card, 
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issues a WAIT, and returns control to the user's program by 
way of register 14. 


Printer-Overflow Macro Expansions: The PRIOV macro expansions 
permit processing program response to printer-over flow 
conditions. 


The following macro expansions are created as inline coding 
during the expansion of the macro instruction. 


PRTOV——User Exit: The coding operates as follows: 


e A WAIT macro instruction is issued for the IOB pointed to by 
the DCBIOBA field. 


e The DCBIFLGS field of the DCB is tested for an overflow 
condition. 


e If an overflow condition exists, a BALR instruction is 
issued to pass control to the user's routine. 


e If no overflow condition exists, control passes to the next 
instruction. 


PRTOV—"No User Exit: The coding creates a test mask in the DCB 
field located at DCBDEVT + 1 and returns control to the 
processing program. 


Note: The printer end-of-block routine temporarily stores the 

mask in the NOP channel command word (CCW) preceding the Write 

CCW, turns ona bit in the first byte of the IOB and resets the 

mask. The PRTOV appendage tests the IOB bit to determine 

rege to respond to or ignore an overflow condition and resets 
e bit. 


BASIC SEQUENTIAL ACCESS METHOD ROUTINES 


Basic sequential access method (BSAM) routines cause storage and 
retrieval of blocks of data. BSAM routines furnish device 
control, but do not provide blocking. There are seven types of 
BSAM routines: 


e READ routines 

e WRITE routines 

e End-of-block routines 

e CHECK routines 

e Appendage routines 

e Control routines 

e SVC Routines 

Diagram G, BSAM/BPAM Flow of Control, shows the relationship of 
the BSAM routines to other portions of the operating system and 
to the processing program. 

Control routines (not shown in Diagram G) permit the processing 
Program to control the positioning of auxiliary storage devices. 
They receive control when the CNTRL Cprinter, tape, card 
reader), PRTOV, NOTE, POINT, or BSP macro instruction is 
encountered in a processing program. The track balance routine 
receives control from a WRITE routine or the track-overflow, 
end-of-block routine. 


The BSAM control modules and routines are described later in 
this manual. 
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NES 


A READ or WRITE routine receives control when the processing 
program issues a READ or a WRITE macro instruction. The READ 
and WRITE routines used with data sets organized for the 
sequential or partitioned access methods pass control to the 
end-of-block routines, which in turn pass control to the I/0 
supervisor. The WRITE routines, used to create data sets 
organized for later access by basic direct access method (CBDAM) 
routines, include the end-of-block function within themselves, 
and so pass control to the I/O supervisor directly. A READ or 
WRITE routine processes parameters set by the processing program 
in the DECB to permit scheduling of the next channel program. 


Figure 16 on page 98 lists the modules available and the 
conditions that cause a particular module to be used. The OPEN 
executor selects one of these routines, loads it, and puts its 
address into the DCBREAD/WRITE field. The figure shows, for 
example, that module IGGO19BH is selected and loaded if update 
and the READ macro instruction are specified. 





Access Method Option 
Input 

Output 

INOUT, OUTIN 

Update 

READ 

Offset READ 

WRITE 

WRITE CLoad mode) (C 
Fixed-length record 
Undefined-length rec 
Variable-length reco 
Spanned records 
Track overflow 

%, DATA, or SYSOUT s 


statement 


READ/WRITE Modules 


Figure 16 (Part 1 of 
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Ss Selections 
X x X 
X X X X xX X 
X X xX 
X 
: ’ rc 
X 
X X 
reate-BDAM) X X X X 
format X X xX 
ord format X X 
rd format X X X X 
X X 
X 
pecified on DD X 
2). Module Selector——-READ and WRITE Modules > 
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Access Method Options 


IGGO19BA 


IGG019BH 


IGGO19BR 


IGGO19BU 


IGGO19DA 


IGGO19DB 


IGGO19DD 


IGGO19DK 


Selections 


BA BA 


BH 


BR 


BU 


DA 


DB 


DD 


DK 





Figure 16 (Part 2 of 2). 


Module Selector——READ and WRITE Modules 


READ/VIRITE Module IGGO1LOBA: Module IGGO19BA completes the 
channel program to be scheduled next, and relates control blocks 
used by the 1/0 supervisor to the channel program. The OPEN 
executor selects and loads this module if the OPEN parameter 
list specifies: 


and 


The 


Input, output, INOUT, or OUTIN 
the DCB specifies: 

READ or WRITE 

module operates as follows: 


It receives control when a READ or WRITE macro instruction 
is encountered in a processing program. 


It enters the address of the IOB into the DECB to permit the 
CHECK routine to later test execution of the channel 
program. 


It fills in a CCW by inserting the buffer address from the 
DECB, and the length from either the DECB (for 
undefined-length records), the DCB (for fixed-length 
records, and for input of variable-length records), or the 
record itself (for output of variable-length records). 


If a block is to be written on a direct-access storage 
device, the module tests the DCBOFLGS field in the DCB to 
establish the validity of the value in the DCBTRBAL field. 


If the DCBTRBAL value is valid, or if a block is to be 
written on a device other than direct-access storage, or if 
a block is to be read from any device, the module passes 
control to an end-of-block routine. 


If the DCBTRBAL value is not valid (that is, the preceding 
operation was a READ, POINT, or OPEN for MOD), the module 
issues an SVC 25 instruction to pass control to BSAM control 
module IGCOOO2E to obtain a valid track balance. When 
control returns to this module, it passes control to an 
end-of-block routine. 
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READ/WRITE Module IGGO19BH (Update): Module IGGO19BH ascertains 
whether a buffer supplied by the processing program is to be 
written from or read into, and causes a corresponding BSAM 
update channel program to be executed. The OPEN executor 
selects and loads this module if the OPEN parameter list 
specifies: 


Update 


and the DCB specifies: 
READ 
The module operates as follows: 


e It gains control when the processing program uses a READ or 
WRITE macro instruction. 


e If data is to be read into a buffer, the module flags the 
IOB for a READ operation, and copies the length and buffer 
address from the DECB or the DCB into the READ CCW. 


e If data is to be written from a buffer, the module flags the 
IOB for a WRITE operation and completes the length and 
buffer address entries in the WRITE CCW. 


e The module passes control to end-of-block module IGGOLYOTV. 
On return of control from that module, it returns control to 
the processing program. 


WRITE Module IGGO19BR (Create BDAM/VRE): Module IGGO19BR writes 
variable-length spanned blocks and record-zero blocks for a data 
set that will later be processed by BDAM. The OPEN executor 
selects and loads this module if the DCB specifies: 


WRITE CLoad mode) 
Variable-length spanned record 
BFTEK=R 


The module consists of three routines: one to write data 
blocks, one to write record-zero blocks, and an asynchronous 
exit routine. 


To write a data block for BDAM, the routine operates as follows: 


e It receives control from the processing program when it 
encounters a WRITE-SF macro instruction and from the EOV 
routine (to write the block not written into the previous 
volume) after the EOV routine of I/0 Support has obtained 
another extent. 


e It determines whether this block fits on the current track. 
If it does, the routine determines whether the new track 
balance is greater than 8 bytes. If the new track balance 
1s equal to or less than 8 bytes, the routine adds 
write-capacity-record CCWs to the write-count—key-and-data 
CCWs. It then issues an EXCP. 


e If the block does not fit on the current track, the routine 
determines whether the block fits on the current volume. If 
it does, this module constructs a channel program to write 
the first segment from a segment area associated with this 
IOB and to write the capacity record of this track. It then 
issues an EXCP. The asynchronous exit routine writes the 
successive segments. The DCBFDAD field has the address of 
the highest track on which the last segment of this record 
is written. 


e If the block does not fit on the track or within the current 
volume, this routine constructs a channel program to write 
the capacity record of the track. It then issues an EXCP. 
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The asynchronous exit routine writes the capacity records of 
all the tracks on this volume. The EOV routine reschedules 
the WRITE request on the same volume spanning the extents, 
if the secondary allocation is on the same volume. When the 
secondary allocation is on a different volume, the WRITE 
request is written on the new volume. 


To write a record-zero block for BDAM, the routine operates as 
follows: 


e It receives control when a WRITE-SZ macro instruction is 
encountered in the processing program or after the EOV 
routine has obtained another extent. 


e It updates the record-zero area and the channel program to 
write the record-zero block and issues an EXCP macro 
instruction. The routine returns control to the processing 
program or to the EOV routine. 


e If there are no data blocks on the track, the module 
modifies the channel program to clear the track after 
writing the record-zero block. 


The asynchronous exit routine operates as follows: 


e It receives control from the channel-end appendage through 
the exit effector when a spanned record is to be processed. 


e If the record is a spanned record, it constructs a segment 
from the remaining part of the record and issues an EXCP 
macro instruction to write the segment. 


e If the record is a spanned volume record, it issues an EXCP 
macro instruction to write capacity records up to the end of 
the extent. 


READ Module IGGO19BU: This module completes the channel program 
to read a direct data set, and relates the control blocks used 
by the I/O Supervisor to the channel program. The OPEN executor 
selects and loads this module along with an associated 
channel-end appendage CIGGOI19OBV) if the OPEN parameter list 
specifies: 


Input 
and the DCB specifies: 
BFTEK=R 


Variable-length spanned record format for a BDAM data set 
with keys 


The module operates as follows: 


e It receives control when a READ macro instruction is 
encountered in the processing program. 


@ It enters the address of the IOB into the DECB to permit the 
CHECK routine to later test execution of the channel 
program. 


e It waits for the SAMB IOB ECB Cin the ICQE) to complete, 
then tests it to determine if the count field of the record 
to be read is available. 


e If the count field of the record to be read is not available 
Cas indicated by the SAMSCHPR flag in the SAMB), an EXCPVR 
macro instruction is issued. If the SAMSCHPR flag is set 
and BFTEK=R processing has been requested, only the count 
field of the next record will be read. 


e When the count field of the record to be read is available, 
the buffer address and record length are placed in the CCW. 
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e The module then issues an EXCPVR macro instruction. 


WRITE Module IGGO19ODA (Create-BDAM): Module IGGO19DA writes 
fixed-length data blocks, fixed-length dummy blocks, and 
record-zero blocks for a data set to be processed later by BDAM. 
The OPEN executor selects and loads this module if the DCB 
specifies: 


WRITE €Load mode) 
Fixed-length record format 


With the rotational position sensing (RPS) feature, this module 
tests the first CCW of a channel program created by IGGO199L. 

It tests for a set-sector command to determine whether it should 
take any RPS CCWs into account when making modifications to the 
channel program. 


The module operates as follows: 


e It receives control from the processing program when it 
encounters a WRITE macro instruction and also from the EOV 
routine after the end-of-volume routine of O/C/EOV has 
obtained another extent. 


e It connects the next available IOB to the DCB and the DECB. 


e It determines, in the same manner as end-of-block routine 
IGGO19CD, whether this block fits on the current track and 
updates the DCBTRBAL field. 


e If this is neither the first nor the last block of a track, 
the module updates the full device address (FDAD) in the DCB 
and the IOB and issues an EXCP macro instruction. It then 
returns control to the processing program or the EOV routine 
from which it received control. 


e If this is the last block of a track (that is, no other 
block fits on the track except the present block), the 
module updates the full device address (FDAD) in the DCB and 
the IOB, expands the channel program to write the 
record-zero block for that track as well as the last data 
block, and issues an EXCP macro instruction. The module 
vee ES ene control to the routine from which it received 
control. 


° If this is the first block of a new track and there is 
another track in the allocated extent, the module finds the 
next track in the allocated extent, updates the full device 
address (FDAD) in the DCB and the IOB, and issues an EXCP 
macro instruction. It then returns control to the routine 
from which it received control. 


e If this is the first block of a new track and there is no 
other track in the allocated extent, the module sets an EOV 
condition indication and returns control to the processing 
program. 


WRITE Module IGGOI19DB (Create-BDAM): Module IGGO19DB writes 
Variable-length and undefined-length blocks and record-zero 
blocks for a data set to be processed later by BDAM. The OPEN 
executor select and loads this module if the DCB specifies: 


WRITE (CLoad mode) 
Variable-length or undefined-length record format 


The module consists of two routines: one to write data blocks 
and one to write record-zero blocks. 


With the rotational position sensing CRPS) feature, the module 


tests for a set-sector command in the first CCW of a channel 
program created by IGGOL9J9L. If it is an RPS channel program, 
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the module makes the necessary modifications to the channel 
program. 


To write a data block for BDAM, the routine operates as follows: 


e It receives control from the processing program when it 
encounters a WRITE-SF macro instruction and from the EOV 
routine (to write the block not written into the previous 
volume) after the end-of-volume routine of O/C/EOV has 
obtained another extent. 


e It determines whether this block fits on the current track 
in the same manner as end-of-block routine IGGO19CD and 
updates the DCBTRBAL field. 


e If one of the following conditions exists, it returns 
control without any further processing to the processing 
program or to the EOV routine from which it received 
control: 


A block other than the first block on a track is to be 
written, but it does not fit on the balance of the 
track. 


The first block is to be written on a track, but the 
allocated extents are exhausted. For this condition, 
the module sets an EOV condition indication before it 
returns control. 


e If either of the following conditions exists, the module 
updates the full device address (FDAD) in the DCB, the IOB, 
and the channel program, issues an EXCP macro instruction 
and then returns control to the routine from which control 
was received: 


A block other than the first block on the track is to be 
written and it fits on the balance of the track. 


The first block is to be written ona track and there is 
another track in the allocated extents. 


e It returns control to the processing program or the 
end-of-volume routine. 


To write a record-zero block for BDAM, the routine operates as 
follows: 


e It receives control when a WRITE-SZ macro instruction is 
encountered in the processing program, or after the 
end-of-volume routine has obtained another extent. 


e It updates the record-zero area and the channel program to 
write the record-zero block and issues an EXCP macro 
instruction. The routine returns control to the processing 
program or to the end-of-volume routine. 


e If there are no data blocks on the track, the module 
modifies the channel program to clear the track after 
writing the record-zero block. 


WRITE Module IGGO19DD (Create-BDAM—Track Overflow): Module 
IGGO19DD creates data sets (with track overflow) of fixed-length 
data and fixed-length dummy blocks that are subsequently to be 
processed by BDAM. The module segments the block, enters the 
segment lengths and buffer segment addresses in the channel 
program, updates storage addresses for the channel program, and 
updates count fields for the block to be written and for 
records-zero of the tracks. The OPEN executor selects and loads 
this module if the OPEN parameter list specifies: 


LY¥26-3967-0 © Copyright IBM Corp. 1977,1985 Method of Operation 103 


Contains Restricted Materials of IBM 
Licensed Materials —— Property of IBM 


Output 

and the DCB specifies: 
WRITE CLoad mode) 
Fixed-length record format 
Track overflow 


With the rotational position sensing CRPS) feature, the first 

CCW of a channel program created by IGG0O191M is tested by this 
module for a set-sector command code. If the code is present, 
alterations to the channel program are made accordingly. 


The module operates as follows: 


e It receives control from the processing program when the 
program issues a WRITE macro instruction, or from the 
end-of-volume routine of I/0 support after that routine has 
obtained a new volume to write out any pending channel 
Programs. (The end-of-volume routine receives control from 
the CHECK routine when that routine finds that a channel 
program did not execute because of an end-of-volume 
condition. ) 


e If no IOB is available, it returns control to the processing 
program. 

° If an IOB is available, it stores its address in the DCB and 
the DECB. 


° If the block last written was the last one for this extent, 
the module erases the balance of the extent. 


e If the block last written filled the last track used, the 
module obtains the address of the next track. 


° It sets the IOB and its channel program to write the block 
onto the next available track. 


e If the block does not fill the track, the module completes 
the count field for this record and issues an EXCP macro 
instruction. 


e If the block fills the track, the module sets the track-full 
indicator, completes record zero for this track, links the 
channel program that writes record zero to the channel 
program that writes the data record, and issues an EXCP 
macro instruction. 


° If the block overflows the track, the module completes 
record zero for this track and completes a channel program 
to write record zero, completes the count field and channel 
program for the segment that fits on the track, and 
4 the identification for record one of the next 

rack. 


° It repeats the preceding until a segment is left that does 
not overflow a track. For the final segment, the module 
operates as it would for a block that fits on the track. 


e On return of control from the I/0 supervisor, the module 
returns control to the routine from which it was received. 


READ/WRITE Module IGGO19DK: (SYSIN/SYSOUT): Module IGG019DK 
interfaces with a job entry subsystem to obtain records from the 
system input stream or to pass records to the system output 
stream for a BSAM processing program. The OPEN executor selects 
and loads this module if the open parameter list specifies: 
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Input, output, INOUT, OUTIN ¢€%, DATA, or SYSOUT coded in the 
DD statement) 


and the DCB specifies: 
READ, WRITE 
Fixed, undefined, or variable-length records 


The module consists of READ and WRITE routines and a CHECK 
routine CSYSOUT only). The SAM module, IGGO17BB, processes the 
CHECK macro instruction for SYSIN (see Figure 17 on page 106). 
(See Diagram M for an overview of SAM-SI processing for BSAM.) 


The READ routine operates as follows: 


e It receives control after a READ macro instruction is issued 
in the processing program. 


e The RPL is initialized and the DCB is examined to determine 
if blocked records are specified. If they are, the number 
of I/0 operations specified in the I/0 counter field 
CCIIOCNT) is determined by the DCB block size and record 
length. If the records are not blocked, the I/0 counter 
field is set to 1. The format of the CICB is shown in JES3 
Data Areas microfiche. 


e A JES GET request is issued. The request is issued as many 
times as is necessary to satisfy the count in the I70 
counter field. The return code passed by the job entry 
subsystem in register 15 is checked by the READ routine. 


e If an end-of-data condition is detected, the DECSDECB is 
posted with X'G2' and control is returned to the processing 
program. The DECSDECB is posted with X'41' for a permanent 
error. 


e If the return code indicates a successful completion, 
control is returned to the processing program with the 
DECSDECB posted with X'7F*. 


The WRITE routine operates as follows: 


e It receives control after a WRITE macro instruction is 
issued in the processing program. 


e The RPL is initialized and the number of I/0 operations 
required to process the WRITE macro instruction is 
determined. The number is placed in the I/O counter field 
CCIIOCNT) of the CICB. 


e If the DCB record format indicates ASA or machine control 
characters, then the control character is checked to 
determine if it is a Composed Page Data Stream control byte. 
In this case, the ACB data stream indicator is set 
i ia before passing control to the job entry subsystem 


e A JES PUT request 1s issued. The request is issued as many 
oer as necessary to satisfy the count in the I/0 counter 
ield. 


e When processing is completed, control is returned to the 


processing program. The ECB is set to X'7F' for a normal 
completion and a X'41'" for an error. 
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CHECK ROUTINES 


A CHECK routine synchronizes the execution of channel programs | 
with that of the processing program. When the processing 
program issues a READ or WRITE macro instruction, control 

returns to the processing program from the READ or WRITE 

routine. This occurs when the channel program has been 

scheduled for execution or, if reading paper tape, when the 

buffer has been filled and the data converted. To determine the 

state of execution of the channel program, the processing 

program issues a CHECK macro instruction; control returns to the 
processing program from the CHECK routine if the channel program 

was executed successfully, or if it was executed successfully 

after the CHECK routine caused volume-switching. For permanent 

errors, control passes to the processing program's SYNAD 

routine. Reading or writing under BSAM, the SYNAD routine may 

continue processing the data set by returning control to the 

CHECK routine; writing in the create-BDAM mode, processing 

cannot be resumed. 


If the American National Standard Code for Information 
Interchange (ASCII) is used and input is specified, the check 
module issues an XLATE macro instruction which translates the 
entire input buffer from ASCII form to EBCDIC form. If format-D 
records are specified, the record descriptor words are first 
converted from decimal to binary. For format-D records when 
BUFOFF # L, the length of the record read is calculated and 
placed in the DCB LRECL field. 


Figure 17 on page 106 lists the available CHECK routines and the 
conditions that cause a particular module to be used. The OPEN 
executor selects one of the six routines, loads it, and places 
its address into the DCBCHECK field. For example, Figure 17 


shows that module IGGO19DC is selected and loaded if a WRITE for 
a BDAM create is specified. 


Access Method Options Selections J 


Input 


* or DATA specified on DD X 
statement 


Output X X 


SYSOUT specified on DD 
statement 


INOUT, OUTIN X 

Update X 

WRITE X 

WRITE CLoad) (Create-BDAM) xX X 
Variable-length spanned record 


format 


CHECK Modules 


IGGO1OBB BB BB 

IGGO19OBI BI 

IGGO19BS BS 

Figure 17 (Part 1 of 2). Modules Selector—CHECK Modules e 
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Access Method Options Selections 


IGG019DC DC 
IGGO19DK?} DK 


Figure 17 (Part 2 of 2). Modules Selector—CHECK Modules 


Note to Figure 17: 


i The CHECK routine described in this section is part of the 
BSAM processing module IGGO19DK listed in Figure 16 on 
page 98. 


CHECK Module IGGOL19SBB: Module IGGO19BB synchronizes the 
execution of the channel program to that of the processing 
program, and responds to any exceptional condition remaining 
after the I/O supervisor has posted execution of the channel 
program in the IOB. If ASCII coding is used, the entire input 
buffer is translated from ASCII to EBCDIC. If ISO/ANSI/FIPS 
spanned record format (DS/DBS) is used, the 5-byte ISO/ANSI/FIPS 
segment control word (SCW) is converted to the IBM 4-byte 
segment descriptor word (SDW), which leaves an unused byte at 
the beginning of each segment. If a SYSIN data set is being 
processed and an error condition is detected, control is passed 
to the SAM-SI SYNAD routine, IGGOL1L9AH. 


The OPEN executor selects and loads this module if the OPEN 
parameter list specifies: 


Input, output, INOUT, or OUTIN 
and the DCB specifies: 

READ or WRITE 
The module operates as follows: 


° It receives control when a CHECK macro instruction is 
encountered in a processing program. 


° A test is made to determine if a SYSIN data set is being 
processed. 


° If SYSIN was not specified, processing continues in the 
normal manner. 


e If SYSIN was specified, the completion code in the ECB is 
tested. 


- If a completion code of X'7F!' was returned, control is 
returned to the processing program. 


- If a completion code of X'42*° was returned, indicating 
an end-of-data condition, the EOV SVC (55) is issued. 
For concatenated data sets, control is returned to this 
routine. If DCBOFLGS specifies "unlike™ attributes, 
control is returned to the calling program immediately. 
Otherwise, the read routine indicated in DCBREAD is 


entered to reschedule the request. Control is returned 
to the user upon completion of CHECK processing for this 
request. 


= If any other completion code was returned, module 
IGGO19AH is loaded and entered with a BALR instruction. 
This is the error-processing module for SYSIN/SYSOUT. 
(See Figure 12 on page 67). The error-processing module 
is deleted if control is returned to the CHECK module. 
(User SYNAD routine may not return control.) 
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e It tests the DECB for successful execution of the channel 
program. 
e If the channel program was executed normally, the module 


returns control to the processing program. 


e If the channel program is not yet executed, the module 
issues a WAIT macro instruction. 


e If the channel program encountered an error condition in its 
execution, the module issues an SVC 55 instruction. Two 
types of returns from the EOV routine are possible: 


_ If the EOV routine determines the error condition to be 
an EOV condition, the routine passes control to the 
end-of-volume routine of O/C/EOV for volume switching. 
That routine passes control to the EOV/new volume 
routine, which reschedules the purged channel programs; 
this routine then returns control to the CHECK module. 


= If the EOV routine determines the error condition to be 
a permanent error, the routine returns control to the 
CHECK module immediately. Control is then passed to the 
processing program's SYNAD routine. If the SYNAD 
routine returns control to the CHECK routine, the 
routine issues a second SVC 55 instruction. The routine 
treats this as an ACCEPT error option, implements it, 
and returns control to the routine, which then returns 
control to the processing program. 


CHECK Module IGGOI9BI (Update): Module IGGOI9BI synchronizes 
the execution of a BSAM update channel program to the progress 
of the processing program. A BSAM update channel program either 
writes data from a buffer or reads data into a buffer. 


The module also processes permanent errors and end-of-volume 
conditions. The OPEN executor selects and loads this module if 
the OPEN parameter list specifies: 


Update 
and the DCB specifies: 
READ 
The module operates as follows: 


e It receives control when the processing program uses the 
CHECK macro instruction. 


e It tests the ECB in the DECB for successful execution of the 
channel program associated with that DECB. 


e If the channel program has not yet completed processing, the 
module issues a WAIT macro instruction. 


e If the channel program has been executed normally, the 
module returns control to the processing program. 


e If the channel program encountered an error condition in its 
execution, the module tests to determine if the error is an 
EOQV condition. 


e If the error is an EOV condition, the module sets an 
indicator to show that this entry is from the CHECK module 
and passes control to the processing program's EODAD 
routine. 


e If the error is not an EQV condition the module issues an 
SVC 55 instruction. 


e On return of control from the EOV routine, the CHECK module 
passes control to the processing program's SYNAD routine. 
If the SYNAD routine returns control to the CHECK routine, 
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the routine issues a second SVC 55 instruction. The routine 
treats this as an accept-error option, implements it, and 
returns control to this routine, which then returns control 
to the processing program. 


CHECK Module IGGO19BS (Create BDAM): Module IGGO19BS 
synchronizes the execution of the channel program (to write a 
block for a BDAM data set) to the progress of the processing 
program, and responds to exceptional conditions encountered in 
the execution of the channel program. The OPEN executor selects 
and loads this module if the DCB specifies: 


WRITE CLoad mode) 
Variable-length spanned record 
BFTEK=R 

The module operates as follows: 


e It receives control when the processing program uses the 
CHECK macro instruction. 


e If the channel program is not yet executed, the module 
issues a WAIT macro instruction. 


e If a user specifies WRITE-SFR, the next record address (TTR) 
is supplied in the next address field of the DECB. 


e If the execution of the channel program encounters a 
permanent error condition, the module passes control to the 
processing program's SYNAD routine. If control is returned 
from the SYNAD routine, or if there is no SYNAD routine, the 
module issues a DMABCOND macro instruction to ABEND. 


e If the WRITE routine encounters an EOV condition and 
therefore does not request scheduling of the channel program 
for execution, this module issues an SVC 55 instruction. Qn 
return of control, this module tests for completion of the 
channel program. 


CHECK Module IGGO19DC (Create-"“BDAM): Module IGG019DC 
synchronizes the execution of the channel program to write a 
block for a BDAM data set to the progress of the processing 
program, and responds to exceptional conditions encountered in 
the execution of the channel program. The OPEN executor selects 
and loads this module if the DCB specifies: 


WRITE C€Load mode) 
The module operates as follows: 


e It receives control when the processing program uses the 
CHECK macro instruction. 


e If the channel program is not yet executed, the module 
issues a WAIT macro instruction. 


e If the channel program executed without error, the module 
returns control to the processing program. 


@ If the execution of the channel program encountered a 
permanent error condition, the module passes control to the 
processing program's SYNAD routine. If control is returned 
from the SYNAD routine, or if there is no SYNAD routine, the 
module issues a DMABCOND macro instruction to ABEND. 


e If the WRITE routine encountered an EOV condition and 
therefore did not request scheduling of the channel program 
for execution, this module issues an SVC 55 instruction. On 
return of control, this module tests for completion of the 
channel program. 
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CHECK Module IGGO1ODK (SYSOUT): The CHECK routine in this 
module receives control after a CHECK macro instruction is 
issued in the processing program for a SYSOUT data set. (See 
Diagram M for an overview of JES compatibility interface 
processing for BSAM.) 


The CHECK routine operates as follows: 
e The return code in the DECSDECB is tested. 


- If a completion code of X'7F* is found, control is 
passed back to the processing program. 


_ If a completion code of X'41' is found, indicating an 
I’0 error, module IGGO19AH Cerror-processing module for 
SYSIN/SYSOUT; see Figure 12 on page 67) is loaded and 
entered with a BALR instruction. The error-processing 
module is deleted if control is returned to the CHECK 
routine. 


e Control is returned to the processing program. 


BSAM CONTROL ROUTINES 


A control routine receives control when a control macro 
instruction (for example, CNTRL, NOTE, POINT, BSP) is used ina 
processing program or in another control routine. BSAM control 
routines (which include those available in QSAM) pass control to 
the I/0 supervisor, another control routine, or return control 
to the processing program directly. BSAM control routines cause 
the physical or logical positioning of I/0 devices. 


There are three types of BSAM control routines: 


e Routines that are loaded into processing program virtual 
storage by the OPEN executor (CCNTRL, NOTE/POINT). 


e Routines that are loaded into supervisory transient area by 
an SVC instruction in a processing program macro expansion 
or in another control routine, such as BSP or track balance. 
See "SVC Routines™ on page 154. 


e Routines that are inline macro expansions in the processing 
program C(CPRTQV). 


Routines that are loaded by the OPEN executor are mutually 
exclusive; that is, only one of them can be used with one DCB. 
The PRTOV macro expansions result in instructions that set or 
test bits that cause branching in either the processing program 
or in an appendage. 


Figure 18 on page l1l and Figure 19 on page 111 list the various 
kinds of control routines and the conditions that cause them to 


gain control. Figure 18 shows the access condition options that 
cause the OPEN executor to load a control routine for use with a 
DCB. 


Figure 19 lists the different macro expansions constructed by 
the assembler. 
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Access Method Options Selections 


Note/Point X X 

Chained scheduling 

CNTRL X X X X 
Direct-access storage X 

Magnetic tape X xX X 

Card reader X 

Printer X 


3525 Cprinting) X 


Control Modules 

IGGO1LIBD BD 

IGGOLOBE BE 

IGGO19BK BK 

IGGO19OBL BL 

IGGO19CA?} CA 
IGGO19CB? CB 
IGGO19FA? FA 


Figure 18. Module Selector—Control Modules Selected and Loaded 
by the Open Executor 


Note to Figure 18: 


1 These routines are also used in QSAM; see Figure 14 on 


page 95 for a description of these routines. 


Number of 
: Macro 

Macro Instructions Expansions 
PRTOV—User exit 1 
PRTOV—No user exit 1 


Figure 19. Control Routines that Are Expansions of Macro 
Instructions 


Notes to Figure 19: 


These routines are also used in QSAM; see the QSAM section 
for a description of the routines. 


This figure duplicates Figure 15 on page 95; it is repeated 
here to identify all control routines available in BSAM. 
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Control Module IGGO19BD (NOTE/POINT~-Magnetic Tape): OPEN 
executor selects and loads this module if the DCB specifies: ) 


POINT 
Magnetic tape 
This module consists of two routines: NOTE and POINT. 


NOTE ROUTINE: The NOTE routine in module IGGO1L9BD presents the 
contents of the DCBBLKCT field of the DCB to the processing 
program and returns control to the processing program. 


POINT ROUTINE: The POINT routine in module IGGO19BD positions 
the tape at the block for which the NOTE macro instruction was 
issued. 


The POINT routine operates as follows: 


e It receives control when a POINT macro instruction is 
encountered in a processing program. 


e It constructs a channel program to read forward or backward 
one block. 


e It tests for the bypassing embedded DOS checkpoint records 
option by testing bit 3 of the DCBOPTCD field. If the 
option is found to have been specified, the routine issues a 
GETMAIN to obtain 20 bytes and modifies the CCW to read the 
first 20 bytes of each block into the obtained virtual 
storage while performing recording positioning. The 
suppress~incorrect-length-indication bit is set in the CCW. 
The actual bypassing of any embedded DOS checkpoint records 
is performed by either channel-end appendage IGGOI19EI or 
IGGOL9EJ. Module IGGO19BD uses the FREEMAIN macro 


instruction to obtain virtual storage prior to returning to 
the user. 
e It passes the channel program for execution the number of 


times required to position the tape at the desired block. 


e It follows the last read channel program by a NOP channel 
program to obtain device end information for the last 
spacing operation. 


e It returns control to the processing program, unless a 
tapemark, load point, or permanent error is encountered in 
one of the executions of the read channel program. In that 
case, the routine sets the DCBIFLGS field to indicate a 
permanent error, before returning control to the processing 
program. (Subsequent processing by the READ or WRITE 
routine to cause scheduling of channel programs for 
execution results in their not being scheduled. On the next 
entry into the CHECK routine, it detects and processes the 
error condition. } 


Control Module IGGOI1L9OBE (CNTRL: Space to Tapemark, Space Tape 
Records): Module IGGOI19BE positions magnetic tape at a point 
within the data set specified by the CNTRL macro instruction. 
The OPEN executor selects and loads this module if the DCB 
specifies: 


CNTRL 

Magnetic tape 
The module consists essentially of two routines: one for 
spacing forward or backward to the tapemark (the FSM/BSM 


routine), and one for spacing forward or backward a number of 
tape records (the FSR/BSR routine). ) 
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FSM/BSM routine operates as follows: 


It receives control when a CNTRL macro instruction is 
encountered in a processing program. 


It constructs a channel program to space to the tapemark in 
the desired direction. 


It issues an EXCP macro instruction for the FSM or BSM 
channel program. Control returns to the routine at channel 
end for the FSM/BSM channel program. 


It issues an EXCP macro instruction for a NOP channel 
program to obtain device-end information from the FSM/BSM 
channel program. 


It issues an EXCP macro instruction for a BSR or FSR channel 
program to position the tape within the data set after the 
FSM/BSM channel program encounters a tapemark. 


It issues an EXCP macro instruction for a NOP channel 
program again to obtain device-end information from the 
BSR/FSR channel program. The routine then returns control 
to the processing program. 


FSR/BSR routine operates as follows: 


It receives control when a CNTRL macro instruction is 
encountered in a processing program. 


It constructs a channel program to space one record in the 
desired direction. 


It tests bit 3 of the DCBOPTCD field for the bypassing 
embedded DOS checkpoint records option. If the option is 
found to have been specified, the routine issues a GETMAIN 
to obtain 20 bytes and modifies the CCW to read the first 20 
bytes of each block into the obtained virtual storage while 
performing record positioning. The suppress-~incorrect— 
length indication bit 1s set in the CCW. The actual 
bypassing of any embedded DOS checkpoint records is 
performed by either channel-end appendage IGGOIL9EI or 
IGGO19EJ. Module IGGO19BD uses the FREEMAIN macro 
lo are aka to obtain virtual storage prior to returning to 
e user. 


It reduces the count passed by the control macro instruction 
and issues an EXCP macro instruction for the FSR or BSR 
channel program. 


When the count is zero, it issues an EXCP macro instruction 
for a NOP channel program to obtain the device-end 
information from the last FSR/BSR channel program. The 
routine then returns control to the processing program. 


If a load point is encountered during spacing, the routine 
returns control to the processing program. 


If a tapemark is encountered during spacing, the routine 
repositions the tape to a point within the data set by 
reverse spacing one block and returns control to the 
processing program. 


If a permanent error is encountered during spacing, the 
routine issues a BALR instruction to pass control to the 
SYNAD routine, if one is present; if not, it issues an ABEND 
macro instruction. 
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Control Module IGGO19BK (Note/Point-~Direct Access~~Special): 
This module contains the NOTE and POINT routines for 
direct-access processing. The OPEN executor selects and loads 
this module if the DCB specifies: 


POINT 


Direct-access storage 


NOTE ROUTINE: The NOTE routine in module IGGO19BK finds the 
full direct-access device address (FDAD) for the last block read 
or written, converts it to a relative address of the form TTR, 
and presents that value to the processing program. 


The NOTE routine operates as follows: 


e It receives control when a NOTE macro instruction is 
encountered in a processing program. 


° It obtains the FDAD value used by the channel program last 
executed. The location of this address depends on which 
macro instruction the last channel program implemented. 


e If the macro instruction is READ and more than one buffer is 
used, the channel program last executed places the FDAD 
value into the IOBSEEK field in the IOB. 


° If the macro instruction is READ and only a single buffer is 
used, the channel program last executed places the FDAD 
value into the DCBFDAD field of the DCB. 


e If the macro instruction is WRITE, the end-of-block routine 
places the FDAD value into the DCBFDAD field. 


e It issues a BALR instruction to pass control to the IECPRLTV 
routine, which converts full addresses into relative 
addresses. 


e It returns the address and control to the processing 
program. 


POINT ROUTINE: The POINT routine in module IGGO19BK establishes 
the full direct-access device address (FDAD) used by the channel 
program to read or write the block noted. 


If the records are fixed-length standard format, the record 
number is passed to the resident sector routine to compute the 
sector value. If the record format is not fixed-length standard 
cea the value 0 is placed in the byte used by the set-sector 


The POINT routine operates as follows: 


e It receives control when a POINT macro instruction is 
encountered in a processing program. 


e It issues a BALR instruction to pass control to the IECPCNVT 
routine which converts the relative address to the full 
address and returns control to the POINT routine. If the 
processing program passed an invalid relative address, the 
executor sets the DCBIFLGS and the IOQBECBCC fields to show 
that an addressing error occurred, before returning control. 
The CHECK routine finds the error and processes accordingly. 


° It establishes the actual value to be used by the next 
channel program by testing the fourth byte of the relative 
address TTRZ. If the value of Z is zero, the full address 
1s decreased by 1; if 2 is 1, the address calculated by the 
convert routine is left unchanged. For an explanation of 
how the value of Z is set, see the description of the POINT 
macro instruction in Data Administration: Macro Instruction 
Reference. 
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° It inserts the value into the DCBFDAD and IOBSEEK fields if 
track overflow or update is being used. It sets the 
DCBOFLGS field to show that the contents of the DCBTRBAL 
field are no longer valid. 


° It determines if the new full disk address references a new 
device address (that is, a new UCB). If a new device is 
addressed, SVC 25 is issued to update the IOBSEEK field in 
the SAMB's IOB. Control then returns to the processing 
program. 


Control Module IGGO19BL (NOTE/POINT—Nagnetic Tape—Chained 
Scheduling): Module IGGOI9BL is selected and loaded by the Open 
executor if the DCB specifies: 


POINT 
Magnetic tape 
Chained scheduling 
The module consists of two routines: NOTE and POINT. 


NOTE ROUTINE: The NOTE routine in module IGGO19BL presents the 
contents of the DCBBLKCT field of the DCB to the processing 
program and returns control to the processing program. and 
returns control to the processing program. 


POINT ROUTINE: The POINT routine in module IGGO19BL positions 
the tape at the block for which NOTE was issued. It operates as 
follows: 


e It receives control when a POINT macro instruction is 
encountered in a processing program. 


e A channel program is constructed to read forward or backward 
one block. 


e The channel program is passed for execution the number of 
times required to position the tape at the desired block. 


e The last spacing channel program is followed by a NOP 
channel program to obtain device-end information for the 
last spacing operation. 


° Control is returned to the processing program. If a 
tapemark, load point, or permanent error is encountered in 
the execution of one of the channel programs, the routine 
sets the DCBOFLGS field to indicate a permanent error. 
(Subsequent attempts by the READ or WRITE routine to cause 
scheduling of channel programs for execution results in 
their not being scheduled. On the next entry into the CHECK 
routine, the condition is detected and handled. ) 


Control Module IGX00030 (MSGDISP——Magnetic Tape—Display message 
to tape drive): This module receives control through an SVC 109 
when the MSGDISP macro is issued. 


This module builds an eight character message partially supplied 
by the caller and displays it on the screen for the tape drive, 
either through its own I0S driver (when the caller wants to wait 
for I/70 completion) or through the MISCELLANEOUS IOS driver 
(when the caller does not want to wait for I/0 completion). It 
provides several ways of displaying different types of messages 
corresponding to the type of request made by the caller through 
the MSGDISP macro as follows. 


READY: It displays a 6 character message supplied by the 
caller. 


VERIFY: It displays a 6 character volume serial number and one 
character label type to signify that the volume is accepted. 


LY26-3967-0 © Copyright IBM Corp. 1977,1985 Method of Operation 115 





Contains Restricted Materials of IBM 
Licensed Materials -—— Property of IBM 


MOUNT: It displays the character "M" together with the volume 
serial and label type to request that the operator mount the 


volume. } 


DEMOUNT: It displays a disposition character "K", "R", or "p" 
for keep, retain, and demount respectively, to inform the 
operator of the disposition of the currently mounted volume. 


RESET: It clears all messages in the display area and displays 
the internal state of the hardware. 


GEN: It displays one or two eight character message(s), 
Beare on whether one or two message(s) are supplied by the 
caller. 


Control Module IGX00031 (SYNCDEV——Magnetic Tape—Synchronization 
of Buffered Write Data): This module gets control through an 
SVC 109 when the SYNCDEV macro is issued. 


This module uses the NOTE ABS service to determine the buffering 
depth of the device. It then does the following, depending on 
the type of service requested: 


INQUIRY ROUTINE: It returns the buffering depth to the caller. 


SYNCHRONIZATION ROUTINE: If the buffering depth exceeds the 
limit specified by the caller, it builds and executes a channel 
Program to force synchronization on the device. Otherwise, it 
returns the buffering depth. 


Control Module IGX00032 (NOTE/POINT——Magnetic Tape-—Physical 
Block ID): This module gets control when a NOTE or POINT macro 
is issued with the ABS parameter specified. 


This module provides two functions: 
NOTE ROUTINE It builds and executes a channel program to record 


the physical block IDs of the record that is about to enter or 
leave the buffer. 





POINT ROUTINE: It builds and executes a channel program to 
position the tape to the record whose physical block ID is 
supplied by the caller. (This physical block ID may be obtained 
from a previous NOTE.) 


BASIC PARTITIONED ACCESS METHOD (BPAM) ROUTINES 


A partitioned data set has a directory and members. The 
directory is read and written using BPAM routines, whereas the 
members are read and written using BSAM routines. (See the BSAM 
portion of this publication.) A processing program using BPAM 
routines for input from the directory is presented with the 
address of a member in a channel program or ina table; for a 
processing program using BPAM for output to a directory, the 
routines determine the address of the member and record that 
address in the directory. 


BPAM routines store and retrieve entries in the directory and 
convert direct-access addresses from relative to absolute. 
Directory entries are entered and found by constructing channel 
programs that search the directory for appropriate entry blocks 
and by locating an equal, or higher, entry within the block. 
Address conversion routines refer to the data extent block CDEB) 
to determine the address value complementary to the given value. 


BPAM routines (see Figure 20 on page 117) differ from BSAM and 

QSAM routines in that BPAM routines are not loaded at OPEN time; 

the STOW routine is loaded at execution time, all the coding for 

FIND (C option) is a macro expansion, and the FIND (D 

option)/BLDL routine and the converting routines are in virtual 

meta Figure 20 on page 117 shows how these routines gain 2 
control. 
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See "SVC Routines" for descriptions of BPAM routines. 


C Module Instruction 
BPAM Routines Number Residence Passing Control 
STOW IGCOO02A Link pack Svc 2] 

area 
STON IGGO210A Link pack XCTL from 
area IGCO002A 
STON IGGO21AB Link pack XCTL from 
area IGGO210A 
FIND (C option) (Macro User FIND (€C option) 
Expansion) program 
FIND (€D option) IGC018 Nucleus SVC 18 
BLDL IGC018 Nucleus SVC 18 
Convert TTR IGC018 Nucleus BAL IECPCNVT 
Convert MBBCCHRR IGc0o18 Nucleus BAL IECPRLTV 
Convert sector IGC018 Nucleus BAL IECOSCRI1 


Figure 20. BPAM Routines Residence 


DUMMY DATA SET 
Cc Dummy Data Set Module IGGO19AV: Dummy data set module IGGO1IAV 
operates as follows: 


It receives control when a sequential access method macro 
instruction refers to a dummy data set. For a dummy input data 
set, the module passes control to the user's EODAD routine; for 
a dummy output data set, the module returns control to the 
processing program immediately without scheduling any I/0 
operation. 


SEQUENTIAL ACCESS METHOD EXECUTORS 


Sequential access method executors are routines that receive 
control from, pass control to, or return control to I/0 support 
routines. For a description of I/0 support routines, see 
Open/Close/EQV Logic. Figure 21 on page 117 indicates the other 
figures that describe the OPEN and CLOSE executors. Executors 
perform processing unique to an access method when a data 
control block is being opened or closed. 


OPEN executors 


CLOSE executors 





Executor Number Receives Control From Via Passes Control To 
OPEN See Figures 22, 23, See Diagram E XCTL CWTG See Diagram E 
and 24 Table) 
Figure 21 (Part 1 of 2). Sequential Access Method Executors—Control Sequence 
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Figure 21 (Part 2 of 2). Sequential Access Method Executors—Control Sequence 


The executors reside in the link pack area. It is the OPEN 
executors that load the access method routines into the 
processing program area for later use during processing program 
execution. 


The OPEN executor is entered from the OPEN routine of I/0 


support, and returns control to that routine. It constructs the 


data extent block (DEB), the buffer pool if requested, 


input/output blocks CIOB), the channel programs, and, if chained 


channel-program scheduling is used, interruption control blocks 
CICB). It selects and loads the access method routines to be 
used with the data control block (CDCB) being opened. 


The CLOSE executor is entered from the CLOSE routine of I/0 
support, and returns control to it. The executor handles any 
pending channel programs and releases the virtual storage used 
by the IOBs, ICBs, and channel programs. 


DCB RELOCATION TO PROTECTED WORK AREA 


OPEN EXECUTORS 
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Before control is passed to SAM OPEN executors, the DCB is 
copied to the OPEN/CLOSE/EOV work area to ensure the integrity 
of DCB vectors that could be changed by the user during system 
open time or system close time. The DCB copy is updated by SAM 
executors during open processing and is used to refresh the 
user's DCB prior to the initiation of any I/O operation. (The 
user's DCB is used for all I/0 initiated during open, except in 
the validation modules, which use the DCB copy.) All I/O is 
completed and the SAM work area, IOBs, and the DEB are updated 
to reflect the location of the user's DCB within the user's 
address space before control is returned to common open. SAM 
executors refresh the user's DCB from the work area copy. 


The OPEN executors are grouped into three stages. Those in the 
first stage receive control from the OPEN routine of I/0 
support. These executors pass control to one of the stage 2 
executors, or the last load of the OPEN executors. The stage 2 


executors in turn, pass control to the stage 3 executors. Stage 


3 executors return control to the OPEN routine. Before 


relinquishing control, each executor specifies the next executor 


to be called for the data set being opened, and also examines 


the where-to-go (WTG) table to determine whether other data sets 


being opened at the same time need its services. To pass 
control to the next executor that is to process the data set, 
each executor issues an IECRES macro with the XCTL and 
BRANCH=DIRECT parameters. This macro generates a branch to the 
OPEN/CLOSE/EOV service routine, IFGO19RA, which branches to the 
next executor. For a description of the WIG table, see 
Open/Close/EOV Logic. 


When an ABEND is to be issued by an OPEN or CLOSE executor, it 
issues a DMABCOND macro to prepare to pass control to IGG0196M 
or IGGO206M. (These two problem determination modules are 
described in Open/Close/E0V_ Logic.) A DMABCOND macro is issued 
instead of an ABEND macro because the problem determination 
routines write a message to the user, issue the GTRACE macro to 
trace pertinent control blocks, and call the optional DCB ABEND 
exit routine before possibly issuing an ABEND macro. 
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System modules that build, delete, or modify data extent blocks 
CDEBs), use DEB validity checking, a separate routine that 
protects the user's data from unauthorized access. The modules 
must maintain a table of DEB pointers in protected storage by 
use of the DEBCHK macro instruction, described in Data 
Administration. The logic of the DEBCHK routine is in 
Open/Close/EOV Logic. 


The OPEN executors maintain an audit trail in the OPEN work area 
to indicate which resources have been acquired. This audit 
trail is interrogated by the force CLOSE executor when a force 
close situation arises. 


The message text for all messages issued by the OPEN executors 


are contained in the message CSECT. Before issuing a message, 
the executor must extract the message text from the message 
CSECT. 


Diagram E shows the flow of control among the three stages of 
OPEN executors. 


Stage 1 OPEN Executors 


Stage 1 OPEN executors construct data extent blocks (CDEBs), 
build buffer pools, and issue DEBCHK (CTYPE=ADD) macros. Ifa 
printer with the universal character set (CUCS) feature and/or a 
forms control buffer (FCB) is specified, the executors call 
SETPRT to perform printer setup. 


If UCS/“FCB images are not specified in the user's JCL, the 
executors must ensure that the current images, as specified by 
the UCB UCS extension, are default images. If none are loaded 
or the loaded images are not default images, the operator must 
specify which images are to be used. 


The OPEN routines determine which executor is required to begin 
Processing of each DCB specified in the OPEN parameter list. 
For SAM processing, the entry placed in the WIG table is 
IGGO191A for an actual data set, IGGO191C for a dummy data set, 
and IGGO199F for a SYSIN or SYSOUT data set. 


The executor for the first entry in the WIG table gets control 
from the common OPEN routines. 


As each stage 1 executor completes its processing, the name of 
the next executor (for the DCB being processed) is placed in the 
WTG table. Then a check is made to determine, for each entry in 
the OPEN parameter list, if another DCB requires the use of the 
executor now in control. If so, the executor is reentered as 
many times as necessary to process all of the entries in the WIG 
table requiring this executor. If no other DCBs require this 
executor, control is passed to the next executor that is 
specified in the WIG table (starting from the top of the list) 
for a DCB that has not completed its processing. For a 
particular DCB, all of the stage 1] executors are executed before 
control 1s passed to a stage 2 executor. 


Figure 22 on page 119 lists the access method conditions that 
cause different stage 1 executors to be selected, loaded, and to 
receive control after loading. The executors are described in 
the text that follows. The order of presentation is the same as 
that shown in Figure 22 under Executors. 


In Figure 22, an X in a column represents a condition that must 
be satisfied for the executor marked in that column. A blank in 
the upper portion of the table indicates that either the 
condition 1s not required for selection or not examined at this 
time. The table should be used in conjunction with the flow of 
ein information in Diagram E, SAM Flow of Control for OPEN 
executors. 
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Selec- Selec- Selec- 
tions tions tions 


X 


Selec- 
tions 


X X 


Selections 
X X X 


Access Method Options 
Actual data set 


Dummy data set 


*¥, DATA, or SYSOUT in DD 
statement 


3505 COMR/RCE) or 3525 


Direct-access device 


Printer with UCS Feature 
€1403, 3203, 3211, 3262 
Model 5, 3800, 4245, 4248) 


Printer with forms control 
buffer (3203, 3211, 3262 
Model 5, 3800 4245, 4248) 





Buffer pool required 


< 
x< 


User totaling specified 
Executors 

IGGO191A 

IGG0191B 


~< < 
<x | << < 
~< ~< 


1A 1A 1A 
1B 1B 1B 


1A 1A 1A 1A 1A 1A 1A 1A 
1B 1B 1B 1B 1B 1B 1B 1B 





~< ~< ~< 
~< 


16601911 11 a eee i 
| 
IGGO191N N 1N | NAN 


IGGO191Y 
IGG0193I 
IGGO0196A 
IGGO196B 


31 3I 31 31 31 31 
6A 6A 6A 6A 6A 6A 
6B 6B 6B 6B 6B 6B 


6Q 6Q 


3I 31 3iI 
6A 6A 6A 
6B 6B 6B 


3 


— x< 
x< 


IGGO196I 
IGG0196Q 
IGGO197L 
IGG0197M 
IGG0197U 





~~ 
rT 


~J 
Cc 





IGGO199F 
IGG0199G 
IGG0199W 


ve) 
“Tl 


~J 


Figure 22. OPEN Executor Selector——Stage l 
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Stage 1 OPEN Executor IGGO191A: Executor IGGO191A receives 
control from the OPEN routine unless the DD statement is DUMMY. 
CIf the DD statement is DUMMY, executor IGGO19IC receives 
control from the OPEN routine. ) 


The executor operates as follows: 


e It tests the OPEN macro option against the DCBMACRF field. 
It issues an 013 ABEND via a DMABCOND macro if any of the 
conditions listed are found. The conditions are: 


For QSAM: 


that buffer length is not smaller than block size if 
the buffer length is specified 


that the block size is not at least 4 bytes larger 
than logical-record length for variable-length 
records 


that logical-record length (if specified) is not 
equal to block size for fixed-length unblocked data 
sets 


For BSAM and QSAM: 


that block size is not an even multiple of logical 
record length for fixed-length blocked data sets 


° It performs a test to determine if the block size is an 
integral multiple of the logical record length (LRECL) for 
QSAM with fixed blocked records or BSAM data sets. If the 
block size is not an integral multiple of LRECL, QSAM data 
sets are abnormally terminated with an abend (013). 


° If search-direct has been requested (COPTCD=Z in the DCB and 
a direct-access device is being used), the executor 
determines if search-direct can be supported (that is, not 
VS, UT, FBS, etc.) and sets the bit in JFCBMASKt+6 to X'08! 
if the request can be honored. For a 3890 MICR device, it 
will issue a DMABCOND macro instruction if RECFM, BLKSI, 
LRECL, or BUFL are specified incorrectly. 


e The executor specifies in the WIG table that module IGGO196I 
is the next module required for this DCB. 


° It searches the WTG table to pass control to another 
executor. 


Stage 1 OPEN Executor IGG0O191B: Executor IGG0191B is loaded 
after executor IGG0196A, IGGO191N or IGGO191Y has completed 
processing all entries in the WTG table. 


The executor operates as follows: 
e It stores DCBLRECL in the DEB. 
e It sets DCBCNTRL to 0. 


"e If the device type is direct-access storage, the address of 
the device table is stored in the DCB. From the device 
table, the key overhead (or 0 if there are no Keys) and 
track balance are stored in the DCB. 


e If the JFCB indicates a partitioned data set, the DSCB and 
the DSORG field of the DCB are checked to be sure they 
specify partitioned organization. If not, a DMABCOND macro 
instruction is issued. 


e If partitioned organization is specified: 
= For direct-access QUTPUT or QUTIN, the track balance of 


the last write, from the DSCB, is stored in the 
DCBTRBAL. 
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aa For direct-access input, the member name from the JFCB 
is stored in the DEB. The routine then issues a BLDL 


macro instruction to find the extent. If BLDL returns a 
nonzero return code, a DMABCOND macro instruction is 
issued. 


The executor issues a BALR to the convert routine at CVTPCNVT to 
convert the TTR to MBBCCHHR and stores it in DCBFDAD. 


e If the data set is not partitioned, DCBFDAD is set to 
DEBBINUM. If a dummy extent is indicated, the DCBFDAD + 3 
is set to X'FF' to indicate an illegal FDAD. 


e If unit record equipment is specified, for input only and 
NOTE’“POINT is requested, DCBCNTRL + 1 is set with ID of the 
dummy routine. 


° If LRECL is not specified, DCBLRECL is initialized for QSAM. 


e The executor specifies in the WIG table that module IGGO196B 
is the next module required for this DCB. 


e It then searches the WIG table to pass control to another 
executor. 


Stage 1 OPEN Executor IGGO191C: Executor IGG0191C operates as 
follows: 


e It receives control from the OPEN routine if the DD 
statement is DUMMY. 


e It issues a GETMAIN macro instruction for a DEB. 
e It does a DEBCHK, ADD, to put the DEB in the DEB table. 


e It issues a LOAD macro instruction for IGGO1LIYAV and stores 
the characters 'AV' in the subroutine ID section of the DEB. 


e It issues a GETMAIN macro instruction for buffer space and 
constructs the buffers. 


e It sets various audit trail bits. 


e It issues a DMABCOND macro instruction if BUFLEN and BLKSIZE 
are not specified for QSAM. 


e The executor specifies in the WTG table that IGGO1911 is the 
next executor for this DCB. 


Stage 1 OPEN Executor IGGOI19I1I: Executor IGGO191I is loaded 
after IGG0196B, unless the OPEN executors must load UCSB or FCB 
images. In this case, it is loaded after IGG0O197M. 


The executor operates as follows: 


e If a buffer pool has already been built, the executor gets 
virtual storage for a record area for QSAM logical record 
interface. 


e If the values in both the DCBBUFL and DCBBLKSI fields are 
zero, the executor issues a DMABCOND macro instruction. 


e If time sharing (TS) is specified with BSAM and DCBBUFL and 
DCBBLKSI fields are zero, it sets the length of the buffer 
to terminal line length. When QSAM is specified and DCBBUFL 
and DCBBLKSI fields are zero, it sets the length of the 
buffer to logic record length. If DCBLRECL field is also 
zero, it sets the length of the buffer to terminal line 
length. 


e If the value in either the DCBBUFL or DCBBLKSI field is not 
zero, the executor uses that value to establish the size of 
the buffer. The value in the DCBBUFNO field determines the 
number of buffers constructed. 
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e If the DCB specifies blocked records, a unit record device, 
output, and not undefined RECFM, it turns off the 
blocked-records bit in DCBRECFM. For fixed-length records, 
it sets DCBBLKSI equal to DCBLRECL. 


e If logical record interface is required for variable-length 
spanned records processed in locate mode, the executor adds 
a length of 32 bytes plus the maximum logical-record length, 
which is specified in the DCBLRECL field for a record area, 
to the size of virtual storage required. If extended 
logical record interface (XLRI) is specified, the DCB LRECL 
value is a multiple of 1024, which is used to calculate the 
size of the record area, and the 32-byte control field is 
added. Eight more bytes (including 4 bytes of padding) are 
added to the buffer control block to store the address of 


the record area. Flags are set (X'C0O*') to indicate an 
extended buffer control block and the presence of the record 
area. 


e It issues a DMABCOND macro instruction if BUTEK=A is 
specified and teh processing mode is not locate. 


e It stores the length of the entire record area in the first 
word of the record area. 


e It specifies that executor IGG0193I is required for this DCB 
in the HTG table. It then searches the WIG table to pass 
control to another executor. 


Stage 1 OPEN Executor IGGO19I1N: Executor IGGO191N receives 
control after executor IGG0O196A. It supplements executor 
IGGO196A by building the device-dependent portion of the DEB for 
direct-access devices. 


For partitioned data sets, it sets the authorized library table 
bit in the DEB if the data set is in the authorized library 
table. 


If the data set resides on an MSS virtual volume, an ICBACREL 
macro is issued to allocate space on and/or stage data to a 
direct-access device. If MSS window processing has been 
requested by the user, a flag is set. on in the DEBXFLGI1 field in 
the DEB extension, providing the MSS data set is (1) physical 
sequential in organization, (2) allocated in cylinders, and (3) 
being processed by QSAM or BSAM for INPUT or OUTPUT only Cnot 
INOUT, OUTIN, nor UPDAT). Any errors result in abnormal 
termination (see abend code 413, return code 2C, in the 
"Diagnostic Aids™ section of this manual). If a partitioned 
data set resides on an MSS virtual volume and will be opened for 
INPUT processing, the following options exist at the time the 
data set 1s opened: 


° To stage the entire data set to end-of-file, specify OPTCD=H 
as a DCB subparameter on the associated DD statement. 


e To stage only the directory of the data set, do not specify 
OPTCD on the associated DD statement. 


Note: The OPTCD option may only be specified on the DD 
statement; it cannot be specified with the DCB macro. 


The user label extent is not inserted into the DEB. This 

executor specifies either IGGOQ191B or IGGO191LY as the next entry 

in the WTG table for processing the DCB, unless the DCB 

riinagt EXCP, in which case IGG01911 is the next executor for 
is : 


It then searches the WIG table to pass control to another 
executor. 
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Stage 1 OPEN Executor IGGO1LOLY: Executor IGGO191Y receives 
control after executor IGGO196A or executor IGGO1IJILN when the 
user-totaling option has been specified in the DCB, that is, 
when bit 6 of DCBOPTCD is l. 

This executor operates as follows: 

e It sets bit 7 of DCBOFLGS to 0 to prevent a successful open 
and issues a DMABCOND macro to write a message to the 
programmer for any of the following reasons: 

- No DCB exit list. 
_ No totaling entry in DCB exit list. 


- Image area address is zero. 


e It calculates the size of the area required to save the 
user's totaling areas and issues a GETMAIN to obtain the 
space. 

e It constructs control blocks for the work area and places 


the address of the save area in the access method portion of 
the DEB. C€Figure 34 on page 241 describes the access method 
save area.) 


° It loads the resident save routine IGGO19AX and places the 
ID of the save routine in the DEB and the address in the 
user-totaling save area. 


° It specifies in the WIG table that executor IGG0O191B is the 
next executor required. It then searches the WIG table to 
determine the next executor to receive control. 


Stage 1 OPEN Executor IGG0193I: This executor receives control 
from IGGOI1911. 


The executor specifies which stage 2 executor is specified in 
the WIG table. The module selector table for stage 2 executors, 
Figure 25 on page 141, should be used to determine which stage 2 
executor is required for this DCB. 


For direct-access processing, if write load (that is, BDAM 
create processing) is not specified, IGG0193I passes control to 
eco aie write load is specified, IGG0193I passes control 
to IGGOl ; 


For other than direct-access processing, if chained scheduling 
can be supported and has been requested (with OPTCD=C), an 

te chained scheduling executor is specified in the WTG 
table. 


If chained scheduling can be supported but has not been 
requested, tests are made to see if it can be given anyway 
without interfering with a dependence that the issuer of OPEN 
may have on normal scheduling. There are two cases in which 
OPEN cannot supply chained scheduling unless requested by the 
keyword OPTCD=C. 


1. Printer—The PRTOV macro may be used and it does not operate 
properly with chained scheduling. 


2. Reading format-U records—With chained scheduling, the 
actual length of the record is not available. 


It then searches the WIG table to determine which executor 
receives control. The IECRES macro instruction is used to pass 
control to the next executor. 
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Stage 1 OPEN Executor IGGO196A: Executor IGG0196A receives 
control from and supplements IGGO196I1. 


The executor issues a DEBCHK CTYPE=ADD) macro to add the 
newly created DEB address to a protected area table of DEB 
addresses. 


It completes the DEB construction initiated in OPEN executor 
IGGO196I1. 


If the device type is a printer with a printer device 
characteristics table (PDCT), the DCBDEVT field contents are 
obtained from the PDCT. 


If the device type is not a printer with a printer device 
characteristics table €PDCT), the executor fills in the 
DCBDEVT field with the device type and number from the UCB. 
If unit record equipment is indicated, the UR bit in the 
DCBDEVT field is set. 


The executor specifies in the WIG table which module is the 
next one required for this DCB, as follows: 


_ For direct-access—executor IGGOI1IIN. 


= If the device type is a printer with UCS feature or is a 
3800 Printing Subsystem and EXCP is specified—executor 
IGGO0196Q. 


ae If the device type is other than a printer and EXCP is 
specified—executor IGG01911, the final module of the 
OPEN executors. 


— If the device type is tape, not input, not EXCP, and the 
user-totaling facility is specified—executor IGGOI19LY. 


= If the device type is other than a printer with the UCS 
feature or direct access, BSAM or QSAM is specified, and 
one ic ae facility is not speci fied—executor 
GGO191B. 


It then searches the WIG table to pass control to another 
executor. 


Stage 1 OPEN Executor IGGO196B: Executor IGG0196B receives 
control from and supplements IGGO1ILB. 


The executor operates as follows: 


For QSAM, DCBBUFNO is set to 5 (3 for 2540) if not 
previously specified. 


Executor issues DMABCOND macro instruction (calls problem 
determination module) if the buffer length is less than 
block size or if data set is for a printer and something 
other than output Conly) is specified. 


Determines the next executor to receive control. 


- For a time sharing (TS) task, control is transferred to 
IGG0196S unless buffers are wanted. If buffers are 
needed, the OPEN routine transfers control to IGGO19I1I. 


= A test is made to determine if either the 3505 Cwithout 
OMR or RCE) or 3525 is being used, just prior to the 
XCTL subroutine. If either device is being used, 
control is passed to module IGG0197L; otherwise, normal 
processing continues. 


— If the device type is a printer with the UCS feature, 
IGG0196Q receives control. 


_ If a buffer pool is required, IGGO191I receives control. 
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= Otherwise, IGG0193I receives control to select the stage 
2 executor. 


Stage 1 OPEN Executor IGGO196I: Executor IGG0196I receives 
control from and supplements IGGOISILA. 


The executor operates as follows: 


e It computes the virtual-storage requirement for the DEB and 
obtains the space. The space does not include the user 
label extent, because it is reflected in the first extent 
field of a format-l1 DSCB for a physical sequential or direct 
data set. If no primary extent has been requested for an 
output data set, as shown by the contents of the DSINOEPV 
field of the DSCB, the executor sets the DCBCINDI] field to 
show a volume-full condition. 


e It specifies in the WIG table that executor IGGO196A is the 
next executor required for this DCB. 


e It then searches the WIG table to pass control to another 
executor. 


Stage 1 OPEN Executor IGG0196Q: This executor initializes a 
printer with the UCS feature or a 3800 Printing Subsystem Models 
l and 3. It receives control from IGGO196A CEXCP) and IGG0196B 
CBSAM/’QSAM). 

The executor operates as follows: 


e For printers other than the 1403, it obtains storage for the 


ERP work area if one does not exist. A use count is Kept of 
the work area. Each time the module requests storage for 
the work area, the count is incremented by 1. Each time the 


work area is released, the use count is decremented by l. 
When the use count is zero, the work area is freed by 
IGGO202J. 


e It obtains storage for a SETPRT parameter list. If the JFCB 
indicates that a JFCBE (JFCB extension for the 3800 Printing 
Subsystem) exists, the SETPRT parameter list is then 
completed using the information in the JFCBE and the JFCB. 
If the JFCBE does not exist, the SETPRT list contains zeros 
in the device-dependent fields. If the device is a 3800 
Printing Subsystem, the module turns on the SETPRT 
initialization bit, which allows the SETPRT executors to 
restore the 3800 Printing Subsystem to its hardware defaults 
before the device was set up with data set dependent 
requirements. 


e If the device is a 3800 Printing Subsystem and SETPRT is not 
successful, message JEC162I with SETPRI return codes is 
issued, followed by an abend CIECIGI1I 013-CC). 


If the device is not a 3800 Printing Subsystem and SETPRT 
fails, the SETPRI return code is converted to the 
appropriate internal abend code for an IEC152I B13-CC abend. 


e This executor then indicates in the WIG table the stage 2 
executor to receive control for processing the DCB. The 
module selector table for stage 2 executors, Figure 25 on 
page 141, should be used. 


Stage 1 OPEN Executor IGGOI197L: Executor IGG0197L receives 
control from IGG0196B whenever the 3505 or 3525 is specified. 


The executor operates as follows: 


e It initiates registers with the addresses of the DCB, UCB, 
ECB, and CVT. 


° A ri is made to determine if either OMR or RCE is being 
used. 
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e If OMR is specified, a test is made to determine if the 
device 1s a 3525. If the device is a 3525, control is 
transferred to IGGO197M. 


e If either OMR or RCE is specified, the format descriptor 
record is loaded and decoded. 


e After the read-only has been executed and the format card 
has been translated, an OMR or RCE CCW is constructed and 
executed Cwrites the format of the device). 


e It specifies in the HWTG table that IGG0197M is the next 
executor required for this DCB. It then searches the WTG 
table to pass control to another executor. 


Stage 1 OPEN Executor IGGO197M: IGG0197M receives control from 
IGGO197L. 


The executor operates as follows: 
e If an OMR or RCE format card is invalid, or if an invalid 


device is specified for ONR, this module issues a WTP 
message and an abend (004) with a return code of 05. 


e If no invalid condition exists, the executor specifies in 
the WIG table the next module required for this DCB, as 
follows: 


= IGGO191I if QSAM is specified and no buffer pool control 
block exists. 


— IGGO197N if either BSAM or QSAM is specified and the 
user has specified a buffer-pool control block. 


= IGGO191I if BSAM is specified and the user has specified 
a buffer number but not a buffer buffer-pool control 
block. 


e It then searches the WTG table to pass control to another 
executor. 


Stage 1 OPEN Executor IGGO199F (SYSIN/SYSOUT): Executor 
IGGO199F receives control when the OPEN routines (see Diagram K) 
determine that the SAM-SI executors are required to process a 
DCB for a SYSIN or SYSOUT data set €X%, DATA, or SYSOUT coded in 
the DD statement). 


Note: If a device is directly allocated to the task and the 
OPEN verification subsystem interface (SSI) determines that the 
data set is to be handled by a subsystem, data management uses 
the SAM-SI executors and the SSI interfaces to access the 
device. The interface to the device subsystem is the same as 
the JES interfaces for a SYSIN/SYSOUT data set. 


The executor operates as follows: 


e It issues a GETMAIN macro instruction to obtain virtual 
storage for a JES compatibility interface control block 
(CICB). The format of the CICB is described in JES3 Data 
Areas microfiche. 


e It constructs an ACB and an RPL in the CICB, for 
communicating with the JES, and initializes an SVC exit list 
with entries for BSP and SYNADAF SVCs. 


e It supplies defaults to appropriate DCB fields in the open 
copy of the DCB. 


e It specifies in the WTG table that executor IGG0199G is the 
next executor required for this DCB. 


e It then searches the WTG table to pass control to another 
executor. 
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Stage 1 OPEN Executor IGG0199G (SYSIN/SYSOUT): Executor 
ToCnLSce receives control from the SAM-SI OPEN executor 


The executor operates as follows: 


e The WIG table is scanned and an open list is constructed to 
open an ACB for each SYSIN/SYSOUT entry in the WTG table. 


e It issues an OPEN (type J) macro instruction for the ACBs 
just constructed. 


e It chains the DEB, created by OPEN for the ACB, to the DCB. 
The address of the DCB is placed in DEBECBAD, leaving 
DEBDCBAD pointing to the ACB (see Figure 36 on page 244). 


e It checks the DCB for invalid combinations of access method 
options. An abend (013) is requested Cusing problem 
Seo menas on routines) if any invalid combinations are 
oun 


e It specifies in the WTG table that IGGO1OIOW is the next 
executor required for this DCB. 


e It then searches the WTG table to pass control to another 
executor. 


Stage 1 OPEN Executor IGGO19O9OW (SYSIN/SYSOUT): Executor 
een oc receives control from the SAM-SI OPEN executor 
GG0199G. 


The executor operates as follows: 


e It determines the buffer requirements, then obtains and 
chains buffer (if necessary). 


e The RPL, contained in the CICB, is initialized according to 
the record format specified in the DCB. 


e It issues a GETMAIN macro instruction to obtain a work area 
for collecting segments, if necessary. 


e It specifies in the WTG table that IGGO198L is the next 
executor required for this DCB. 


e It then searches the WTG table to pass control to another 
executor. 


Stage 2 OPEN Executors 


A stage 2 OPEN executor establishes device-oriented information 
for the processing described by a DCB, and completes 
device-oriented control blocks or fields. One of the stage 2 
executors receives control for each DCB being opened; the WTG 
table identifies the executor required for each DCB. On 
conclusion of an executor's processing it enters in the WTG 
table the identification of the stage 3 executor required. 
Figure 23 on page 129 lists the access conditions that cause the 
different stage 2 executors to be loaded and to receive control. 


For direct-access operations other than write load, IGG0193B 
serves as a stage 2 and 3 OPEN executor. IGG0193B returns 
control directly to IGG0190S, the I/0 services common routine. 
IGGO193B builds all control blocks and loads all routines 
needed. 


The device-oriented processing performed by a stage 2 executor 
primarily consists of the construction of input/output blocks 
CIOB), their associated channel programs, and the identification 
of the end-of-block routine required for the processing 
described by the DCB. For chained channel-program scheduling, 
executors also construct interruption control blocks CICB). 
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Figure 23 lists the access conditions that cause the different 
stage 2 executors to be loaded and to receive control. The 


executors are described in the text that follows and are in the 
Same sequence as the list in the figure. 


Selec- 
Access Method Options tions 


Track overflow 


Direct-access storage 


Unit record or magnetic 
tape or paper tape 

Write-Load (Create-BDpaM) | = = == |X X__ 
Chained scheduling 


3505 


bod 


3890 
OMR or 


Print only and associated 
files 


ae 
TS terminal dl 
Open Executors! tf  . 4 
1GG0191G 
1GG0191Q 
IGG0191R 


IGGO193B 
IGG0196K 
1GG0196S 


7N 7N 7N 
7P 7P 
7Q 7Q 


IGG0197P 
IGG0197Q 
IGG0197V 
IGGO199L 


xX 
X 

3B 
7V 


Figure 23. OPEN Executor Selector—Stage 2 
Notes to Figure 23: 


a If *, DATA, or SYSOUT is specified on the DD statement, no 
stage 2 executors are loaded. 
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2 See ACF/TCAM Diagnosis Guide and ACF/TCAM Diagnosis 
Reference. 


In this figure, an X ina column represents a condition that 
must be met for the executor to be selected. A blank in the 
upper portion of the table indicates that either the condition 
1s not required for selection or is not examined at this time. 
The table should be used in conjunction with the flow of control 
information in Diagram E, SAM Flow of Control for OPEN 
Executors. 


Stage 2 OPEN Executor IGG0191G: Executor IGG0191G normally 
receives control from executors IGG0193I, IGG0196Q (for 3800 
Printing Subsystem only), IGG0197F, IGG0197U, or IGGO197N. 
Under abnormal conditions, it receives control from executors 
IGGO191R, IGGO191Q Cchained scheduling not supported) if: 


e The DCB specifies BSAM or QSAM and either unit record or 
magnetic tape. 


e The OPEN macro parameter is INOUT or OUTIN and the DCB 
specifies magnetic tape. 


The executor operates as follows: 


e It computes the amount of virtual storage required for the 
IOBs, issues a GETMAIN macro instruction from subpool 0, in 
the user's key, and then sets the virtual storage for the 
IOBs to zeros. It stores the number of bytes gotten for the 
IOBs in the second word of the audit trail for force close. 


e When control is returned from GETMAIN, it sets an audit 
trail bit to indicate to the force CLOSE executor that 
storage should be freed. 


e It then tests to see if the device type for this data set is 
unit record. If so, IGGO196K is specified in the WTG table 
for this DCB and the check for other DCBs that need this 
executor iS made. 


e If the device is not unit record, processing continues in 
this module. It constructs the channel programs in the IOBs 
and fills in the other fields of the IOBs. It stores the 
address of the first IOB in the DCB and sets the first IOB 
bit in the first IOB. If there is only one IOB for this 
data set, it sets the IOB unrelated flag. 


The executor specifies in the WIG table the next executor 
required for this DCB. If the DCB specifies variable-length 
record format, the next executor is IGG01915. For the remaining 
access conditions that cause this executor to be used, the next 
executor is IGG0O1910. The executor then searches the WIG table 
to pass control to another executor. 


Stage 2 OPEN Executor IGGO191L: Executor IGGOI9IL receives 
control after executor IGG0193I if the DCB specifies: 


Create-BDAM (CWrite-Load) 


The executor constructs IOBs and enters the address of the first 
IOB into the DCB. Then it loads the create-BDAM WRITE, CHECK, 

ane channel end appendages and inserts their addresses into the 
CB. 


It loads the create-BDAM channel end appendage and places its 
address in the DEB appendage vector table CAVT). 


With the rotational position sensing (RPS) feature, more virtual 
storage is needed for the channel programs. This executor 

computes the extra bytes needed for the RPS channel programs and 
issues a GETMAIN. The sector bytes are placed at the end of all 
the IOBs and channel programs. The last doubleword of the 

GETMAIN area is used for sector manipulation. The first byte is 
used by set-sector and by read sector. The second byte is used 
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as a byte of zero on which to issue a set-sector command in 
order to position at the beginning of the track. 


If track overflow is specified, the routine specifies that 
executor IGGO19IM is the next executor required for this DCB. 
Otherwise, the routine specifies IGGO1SO9SL as the next executor 
required. It then searches the WIG table to pass control to 
another executor. 


Stage 2 OPEN Executor IGGO19IM: Stage 2 OPEN executor IGG0O191M 
constructs channel programs to write track-overflow blocks using 
BSAM for a data set to be later processed by BDAM. Executor 
IGGO19O1L identifies it in the WIG table as its successor 
executor if the DCB specifies: 


Create-BDAM CWrite-Load) 
Track overflow 


With the rotational position sensing CRPS) feature, more virtual 
storage is needed for the channel programs. This executor 
computes the extra bytes needed for the RPS channel programs and 
issues a GETMAIN. The sector bytes are placed at the end of all 
the IOBs and channel programs. The last doubleword of the 
GETMAIN area is used for sector manipulation. The first byte is 
used by set-sector and by read sector. The second byte is used 
as a byte of zero on which to issue a set-sector command in 
order to position at the beginning of the track. 


The executor operates as follows: 


e If the extents are smaller than the blocks, it issues a 
DMABCOND macro instruction to abend. 


e It constructs channel programs to write the number of 
segments required by the size of the block. 


° It specifies in the WTG table that OPEN executor processing 
is completed for this DCB. It then searches the WTG table 


to pass control to another executor. If the WIG table has 
no other entries, the executor returns control to the Open 
routine. 


Stage 2 OPEN Executor IGG0191Q: Executor IGGO191Q gains control 
after executor IGG0196Q Cfor 3800 Printing Subsystem only), 
IGG0197U, IGGO197F, or IGGO193I if the DCB specifies: 


Chained channel-program scheduling 
Unit record and magnetic tape 
The executor operates as follows: 


e If the DCB specifies the CNTRL macro instruction, this 
executor identifies executor IGG0191G in the WTG table as 
the next executor to receive control for this DCB. It then 
searches the WIG table to pass control to another executor. 


° If the NOTE/POINT macro instruction is specified and the 
device is magnetic tape, it identifies module IGGOI9BL to be 
loaded for use with the DCB. 


e If the NOTE/POINT macro instruction is specified, and the 
device is unit record, it identifies dummy data set module 
IGGO19YAV to be loaded and used in place of NOTE/POINT. 


e It identifies the end-of-block routine to be loaded and used 
for the processing described by this DCB. 


e From subpool 0O in the user's Key, it obtains space for and 
constructs one IOB, the required number of ICBs Cone per 
buffer or channel program) and channel programs appropriate 
to the device, and links them. It stores the number of 
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bytes gotten for the IOBs in the second word of the audit 
trail for force close. 


When control is returned from GETMAIN, it sets an audit 
trail bit to indicate to the force CLOSE executor that 
storage should be freed. 


It sets the PCI flag in the READ Count CCW, only if ina 
real address environment. 


For QSAM data sets with fixed-blocked record format on a 
unit record device, and the buffer pool was not gotten by 
OPEN, it sets DCBBLKSI equal to DCBLRECL and turns off the 
blocked records bit in DCBRECFM. 


If chained scheduling cannot be supported because of 
conflicting specifications, bit 5 of DCBCIND2 is set to 0 to 
indicate that chained scheduling is not being supported. The 
executor specifies IGG0191G as the next executor to receive 
control; otherwise, unless variable spanned record format is 
specified, bit 5 of DCBCIND2 is set to 1 to indicate support 
of chained scheduling and IGG01913 is specified as the next 
executor to receive control. When variable spanned or 
ISO/ANSI/ZFIPS variable spanned record format is specified, 
IGG01916 is the next executor for this DCB. 


It then searches the WIG table to pass control to another 
executor. 


Stage 2 OPEN Executor IGGO191R: OPEN executor IGG0O191R receives 
control after executor IGG0193I if the OPEN parameter list 
specifies: 


and 


The 
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INOUT, or OUTIN 

the DCB specifies: 

Chained channel-program scheduling 
Magnetic tape 

executor operates as follows: 


If the device is magnetic tape, it identifies NOTE/POINT 
module IGGO19BL to be loaded for use with the DCB. 


It identifies the end-of-block routine to be loaded for use 
with the DCB. 


From subpool 0 in the user's key, it obtains space for and 
constructs one IOB, the required number of ICBs Cone per 
buffer or channel program) and channel programs for 
direct-access storage or magnetic tape, and links them. It 
stores the number of bytes gotten for the IOBs in the second 
word of the audit trail for force close. 


When control is returned from GETMAIN, it sets an audit 
trail bit to indicate to the force CLOSE executor that 
storage should be freed. 


It sets the PCI flag in the read count CCW, only if ina 
real address environment. 


} 
If chained scheduling cannot be supported because of 
conflicting specifications, bit 5 of DCBCIND2 is set to 0 to 
indicate that chained scheduling is not being supported, the 
executor specifies IGG0191G as the next executor to receive 
control; otherwise, bit 5 of DCBCIND2 is set to 1 to 
indicate support of chained scheduling and IGG01913 is 
specified as the next executor to receive control. 


It then searches the WTG table to pass control to another 
executor. 
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Stage 2 OPEN Executor IGGO196K: Executor IGGO196K receives 
control tan IGGO191G determines that the device type is 
unit record. 


e This executor builds channel programs, using the storage 
gotten in IGGO191G. 


e For QSAM fixed blocked record format, it sets DCBBLKSI equal 
A poeeac?S and turns off the blocked records bit in 
CB : 


The executor specifies in the WIG table the next executor 
required for this DCB. If the DCB specifies variable-length 
record format, the next executor is IGG01915. For the remaining 
access conditions that cause this executor to be used, the next 
executor is IGG01910. 


The executor then searches the WIG table to pass control to 
another executor. 


Stage 2 OPEN Executor IGGO197N: Executor IGG0197N receives 
control from IGG0193I whenever the 3505 or 3525 is specified, or 
from IGG0197M whenever the same devices are specified and a 
buffer pool is not needed. 


The executor operates as follows: 


e It makes a test to determine if the FUNC parameter is being 
used. 


e If the FUNC parameter is not being used, and if the file is 
for read-only (without OMR or RCE) or punch-only, IGG0191G 
is specified in the WTG table as the next executor required 
for this DCB. 


e If the FUNC parameter specifies print only or associated 
files, IGGO197P is specified in the WTG table as the next 
executor required for this DCB. 


e If a specified parameter combination is found to be invalid, 
a message to the programmer (WTP) is issued along with a 
subsequent abend (004). 


e If the FUNC parameter is not being used, but the file is a 
read-only with OMR or RCE, IGG0197P is specified in the WNTG 
table as the next executor required for this DCB. 


e After the validity of the FUNC parameter is established, the 
DCBMACRF field is tested to determine if the CNTRL is valid 
for an input data set. If it is not valid, a WIP message 
and ay ABEND macro (004) with a return code of 02 are 
issued. 


e If the CNTRL specification is valid, a test is made to 
marae ale if the associated DCBs specify the same access 
methods. 


e If the access methods are not the same, a message is written 
to the programmer along with a subsequent ABEND (004). 


e It specifies in the WTG table that IGG0197P or IGGO0191G is 
the next executor required for this DCB. It then searches 
the WIG table to pass control to another executor. 


Stage 2 OPEN Executor IGG0O197P: IGG0197P receives control from 
IGGO1O7N if neither read-only (without OMR or RCE) nor 
punch-only is specified for the 3505 or 3525. 

The executor operates as follows: 


® It builds the IOB and CCWs and appends a work area to the 
IOB, according to the type of data set that is specified. 
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° It specifies in the WTG table that IGG0197Q is the next 
executor required for this DCB. It then searches the WTG 
table to pass control to another executor. 


Stage 2 OPEN Executor IGG0197Q: IGG0197Q receives control from 
IGGO197P. 


The executor operates as follows: 


° A test 1s made to determine if data protection image (DPI) 
1s specified in the FUNC parameter. 


e If DPI is specified, SVC 105 is issued. This builds a DCB 
for SYS1.IMAGELIB and returns its address in register one. 


° Both a BLDL and a LOAD macro are issued so that the DPI 
image can be built and the image address can be loaded in 
register zero. 


e The address is saved for the image deletion (after the image 
has been copied into IOB + 64) by the DELETE macro. 


° If DPI is not specified, tests are made to determine which 
EOQB and/or control module ID is to be entered in the DCB. 
(The same tests are made if DPI is specified.) 


° It specifies in the WIG table that IGG01910 is the next 
executor required for this DCB. It then searches the WIG 
table to pass control to another executor. 


Stage 2 OPEN Executor IGG0197V: IBM 3890 Document Processor 
executor, IGG0197V, receives control after either executor 
IGGO196B or IGG0193I. For information about the executor, see 


OS/VS Logic for IBM 3890 Document Processor. 


Stage 2 OPEN Executor IGGO19O9L: Executor IGGO199L receives 
control after executor IGGO1OIL if the DCB specifies: 


Create-BDAM (Write-Load) 


The executor constructs channel programs. When the DCB 
specifies RECFM=VS and BFTEK=R, the routine constructs a segment 
work area for spanned record processing and creates an IRB for 
the asynchronous exit routine, which executes writing of the 
successive segments. It then searches the WIG table to pass 
control to another executor. If the WIG table has no other 
entries, the executor returns control to the OPEN routine. 


With the rotational position sensing (RPS) feature, more virtual 
storage is needed for the record-ready channel programs. This 
executor computes the extra bytes needed for the record-ready 
channel programs and issues a GETMAIN. The sector bytes are 
placed at the end of all the IOBS and channel programs. The 
last doubleword of the GETMAIN area is used for sector 
manipulation. The first byte is used by set-sector and by 
read-sector. The second byte is used as a byte of zero on which 
to issue a set-sector command in order to position at the 
beginning of the track. 


Note: A user may provide a segment work area by setting a bit 
in the DCBMACRF field and placing the address of that area in 
the DCBEOB field. In this case, this routine will not construct 
the segment work area. 
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Stage 3 OPEN Executors 


primes the buffers. 


Some of the modules to be loaded are identified by stage 2 


If QSAM is used, and an input 


executors having set codes in DCBCNTRL for unit record and tape 


data sets. 


modules: 

Byte Module Type 

+0 EOB (€QSAM) or EOB for read (BSAM) 
+] EOB for write (BSAM) 

+2 NOTE/“POINT or CNTRL 

+3 NOTE/POINT or CNTRL 


The 4 bytes of DCBCNTRL identify these types of 


Note that the first byte is DCBEROPT and is saved at DXCCN6 


during stage l and restored by IGG01911. 


in the 4 bytes and the modules they can identify, 


which stage 3 executor does the loading, are: 


00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
OA 


OB 
0c 
OD 
OE 
OF 
10 


In many of the above pairs, 


No module to load 


Reserved 
IGGO019CC, 
IGGO19CE, 
IGGO19CF, 
Reserved 
IGGO19BD, 
IGGO19CA 
IGGO19CB, 
IGGO19BE 
IGGO1LIAV 


IGGO019CT 
IGGO19TC 
IGGO19TC 
IGGO19TW 
IGGO19TW 
IGGOL9CT 


IGGO019CW 


IGG019CX 


IGGO19CY 


IGGO1LOBL 


IGGO019CC 


End-of-block 
End-of-block 
End-of-block 


NOTE/POINT, tape 
CNTRL, card reader 


CNTRL, printer or End-of-block 


CNTRL, tape 


DUMMY or no-op for various 


functions 

End-of-block, 
End-of-block, 
End-of-block, 
End-of-block, 
End-of-block, 
End-of-block, 


error 

user-totaling 
user-totaling 
user-totaling 
user-totaling 


error 


the first one is for normal 


scheduling and the second one is for chained scheduling. 


The stage 3 OPEN executors load in the fixed standard end of 
extent modules and the format-U channel end module when the 


rotational position sensing (RPS) feature is used. 


The codes that can be 
depending on 


Figure 24 on page 136 lists the access conditions that cause the 


different stage 3 executors to be loaded and to gain control. 
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The executors are described in the text that follows ina 

sequence identical to the list under "Executors™ in Figure 24. 

In this figure, an X ina column represents a condition that S 
must be satisfied before the executor is selected. A blank in 

the upper portion of the table indicates that either the 

condition is not required for selection or not examined at this 

time. The table should be used in conjunction with the flow of 


control information in Diagram E, SAM Flow of Control for OPEN 
Executors. 


Stage 3 OPEN Executor IGG01910: IGG01910 receives control after 
executor IGG0197Q. It also receives control after executor 
IGG0191G. 

This executor operates as follows: 


e For QSAM it identifies, loads, and puts the address into the 
DCB of: 


A GET or PUT routine 
A synchronizing routine 

e It loads appendages and puts their addresses in the DEBAVT. 

e It puts end-of-block routine addresses in the DCB. 

e If BSAM is specified, it identifies, loads, and places the 
addresses in the DCB of the READ/WRITE routine and the CHECK 
routine. 

e For 3211 printers, it issues a CIRB macro instruction to 
create an IRB for an error retry module; it loads an 


abnormal end appendage and an error retry module. 


e For user-totaling, it loads the EOB routine and places its 
address in the DCB. . 


e It enters into the DEBSUBID field of the DEB the 
identification of each routine loaded. 


e It specifies executor IGG01911 in the WIG table as the next 
executor to receive control for this DCB. 


Access Method Operations 


Chained scheduling X xX 
None of the above X X 


*, DATA, or SYSOUT specified on the »,4 
DD statement 


Variable-length records xX xX 
Dunmy data set x 


OPEN Executors: 


IGG01910 10 
IGG01911 11 11 11 11 11 
IGG01913 13 





Figure 24 (Part 1 of 2). OPEN Executor Selector—Stage 3 


2 
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Access Method Operations 


IGG01915 15 
IGG01916 16 
IGGO198L 8L 


Figure 24 (Part 2 of 2). OPEN Executor Selector—Stage 3 


Stage 3 OPEN Executor IGG0O1911: Executor IGG01911 is entered 
from executors IGGO191C, for dummy data sets; IGGOI19IN, 
IGG0196A, for EXCP data sets; and IGG01910, IGG01912, IGG01923, 
IGG01915, and IGG01916 for all SAM unit record and tape data 
sets. 


This executor operates as follows: 


° It issues the IECRES macro instruction to cause the user's 
copy of the DCB to be updated to reflect the changes and 
A ne made by the OPEN executors to the protected copy 
of the DCB. 


° It issues a DELETE macro instruction for the message CSECT 
if it was loaded by stage 1 OPEN executors. 


° It sets an audit trail bit for the SAM/PAM/DAM force CLOSE 
executor to indicate the data set can be closed by the 
normal close executor string during force close processing. 


° It puts the buffer address into the CCW and, if ANSI with 
BUFFOF=L is not specified, zeros the first four bytes 
(buffer chain pointer) of each buffer. 


It sets the type of related request (RR) for normal scheduling 
data sets with more than 1 IOB. The type of RR setting defines 
the time in the processing of the current request that IOS can 
start the next RR. This is controlled by the processing REQD to 
prepare the next RR for I/0 initiation. CIE, if chan end 
appendage updates the next IOB after completion of the current 
IOB, I70 cannot be started for the next request until IOS has 
received control back from the chan end appendage.) The 
following matrix shows the types of related requests. 


Processing 
Required Type I Type II Type III 


DRP processing 

CE appendage 

CE interrupt X 
SIO appendage 


EOE appendage 


Note: The only exception to the above matrix is for mag 
tape. Unit exception is presented from trying to write 
over the reflective marker on reading a tape mark. To 
keep I0S from starting the next RR it is necessary for the 
ERP to mark this in permanent error. Since ERP processing 
is after CE processing (and SAM output data sets, SAM tape 
ag data sets do not have ce appendages,) the type must 
e . 
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For data sets other than QSAM, it returns to common 
open. 


It completes any remaining DCB fields. ) 
It completes the IOBs. 


It puts the buffer address in the READ or WRITE CCWs 
for unit record and magnetic tape data sets. If an 
invalid buffer address is found, it issues a DMABCOND 
macro instruction. 


For QSAM input: 


Chained Scheduling: It chains all channel programs 
for move, data, and substitute modes. For locate 
mode, it chains together all but one. It then issues 
an EXCP macro instruction against the main IOB to 
prime the buffers. 


Normal Scheduling: It issues a GETMAIN macro 
instruction from subpool 230 in the user's key for a 
register save area for the access method routines. It 
saves the address returned from GETMAIN in the second 
word of the audit trail for force close. It then 
passes control to the EOB routine (CBALR if the key is 
less than 8, SYNCH if the key is greater than 7) to 
Prime the user's buffers (for all but one IOB if 
locate mode; all buffers for other processing modes). 
Before exiting, it frees the register save area. 


For output, it sets a flag, which is used to identify 
the first entry, into the PUT routine. 


It searches the WIG table to pass control to another 
executor. If the WIG table has no other entries, the 
executor returns control to the OPEN routine. ) 


Stage 3 OPEN Executor IGG01913: Executor IGG01913 receives 
control after executors IGG0191Q and IGGO191R if the DCB 
specifies: 


The 
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Chained channel-program scheduling 

executor operates as follows: 

For 3211 printers, it issues a CIRB macro instruction to 
create an IRB for an error retry module; it loads an 
abnormal-end appendage and an error retry module. 


If QSAM is specified, it identifies, loads, and places the 
address into the DCB of: 


A GET or a PUT routine 
A synchronizing routine 


If BSAM is specified, it identifies, loads, and places the 
address into the DCB of: 


A READ or WRITE routine 
A CHECK routine 
It loads appendages and puts their addresses in the DEBAVT. 


It loads the end-of-block routines specified by the stage 2 
executors. 


It specifies in the WTG table that OPEN executor IGG01911 is 
to receive control next for this DCB. ) 
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Stage 3 OPEN Executor IGG01915: Executor IGG01915 receives 
control after executors IGG0191G, IGG0O196K, and IGG0197Q, if the 
DCB specifies: 


Variable-length record format 
The executor operates as follows: 


s If QSAM is specified, the executor identifies and loads a 
GET or PUT routine and a synchronizing routine. 


° If BSAM is specified, the executor identifies and loads a 
READ or WRITE routine, a CHECK routine, and a routine to 
service the NOTE/POINT macro instruction if it is specified. 


e It loads appendages and puts their addresses in the DEBAVT. 


e It loads the end-of-block routines specified by the stage 2 
executors. 


e It issues a DMABCOND macro instruction if LRECL=X is 
specified and the processing mode is not Locate. 


e It issues a DMABCOND (Cabend code 013-4) macro to cause an 
abend if ISO/ANSI/FIPS records are to be processed and there 
1S no record area present. 


° It places the identifiers (IDs) of the routine loaded into 
the DEB subroutine ID field and the addresses of the 
routines into the DCB. 


e For a 3211 printer: 


An abnormal-end appendage is loaded and its address is 
placed in the appendage vector table. 


An asynchronous error routine is loaded. The IRB used 
for scheduling this routine is built and the IRB address 
Placed in the DEB. 


e It specifies in the WIG table that executor IGG01911 is the 
next executor required for this DCB. 


e It searches the WIG table to determine to which executor it 
should pass control. 


Stage 3 OPEN Executor IGG01916: Executor IGG01916 receives 
control after executors IGG0191Q and IGGO19I1R if the DCB 
specifies: 

Variable-length record format 
The executor operates as follows: 


If QSAM is specified, the executor identifies and loads a 
GET or PUT routine and a synchronizing routine. 


If BSAM is specified, the executor identifies and loads a 

READ or WRITE routine, a CHECK routine, and a routine to 

service the NOTE/POINT macro instruction if it 1s specified. 
e It loads appendages and puts their addresses in the DEBAVT. 


e It loads the end-of-block routines specified by the stage 2 
executors. 


e It issues a DMABCOND macro instruction if LRECL=X is 
specified and the processing mode is not Locate. 


e It issues a DMABCOND Cabend code 013-4) macro to cause an 


abend if ISO/ANSI/FIPS records are to be processed and there 
1S no record area present. 
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It places the IDs of the routine, loaded into the DEB 
oe ID field, and the addresses of the routines into 
e 


It specifies in the WIG table that executor IGG01911 is the 
next executor required for this DCB. 


It searches the WIG table to determine to which executor it 
should pass control. 


Stage 2 and 3 OPEN Executor IGGO193B: Executor IGG0193B is 
entered after executor IGG0193I if the DCB specifies: 


Direct access 


This executor operates as follows: 


This is the stage 2 and 3 open executor for non-WRITE load 
direct-access processing. Each DCB that has IGG0193B in its 
where-to-go (WTG) table entry is processed by the module's 
base routine, OPENEXEC. 


It gets a storage area for, and initializes, the SAMB 
control block CSAMBBLD). The amount of space of CCWs, count 
fields, and IDAWs Cindirect address words) is calculated 
een Cif not zero), and DCBBUFNO for SQAM or DCBNCP 
or . 


It initializes the key zero IOB in the SAMB CIOBBLD). 

It gets a storage area for, and initializes, the ICQE and 
caller key IOBs. It initializes the caller key IOBs by 
copying the key zero IQB into them CICQIOBLD). 

It initializes the DEBAVT CAVTBLD). 

It initializes the fields in the DCB. It calls subroutines 
to load the front end routines and places their addresses in 
the DCB CDCBBLD). 


It primes the buffers for QSAM input and update (BFRPRIME). 


Stage 3 OPEN Executor IGGO198L (SYSIN/SYSOUT): IGG0198L 
receives control after the SAM-SI OPEN executor IGGO199W. 


The executor operates as follows: 
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It determines which processing modules are required to 
process the SYSIN or SYSOUT data set. 


If BSAM is specified in the DCBMACRF field of the DCB, the 
BSAM processing module, IGGO19DK, is loaded into virtual 
storage. If input is also specified, module IGGO19BB is 
also loaded to process the CHECK macro instruction. 
Otherwise, IGGO19DK also handles the CHECK macro 
instruction. 


If QSAM is specified, the QSAM CI processing module IGGO0O19DJ 
is loaded into virtual storage. 


If input is specified, module IGGO19JAQ is also loaded to 
process an end-of-data condition. 


It sets the CI bit in the DCBCIND1 field to indicate that 
this DCB is processed by the SAM-SI routines. 


It marks the current entry in the WTG table to indicate that 
no further executor processing is required for this DCB. 


It refreshes the processing program's DCB from the copy 
maintained by the open routines. 


It then searches the WIG table to determine whether to give 
control to another executor, or branch back to itself. If 
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CLOSE EXECUTORS 


there are no other entries in the WIG table, the executor 
returns control to the open routines. 


Figure 25 on page 141 shows the conditions that cause the CLOSE 
executors to gain control. IGGO201A or IGG0201Z receives 
control if one of the sequential access methods is used. 
Control goes to IGGO2Z01A if the device type is tape or unit 
record. Executor IGG0201X is an extension of IGGO201A. If the 
device type is direct-access storage, control 1s passed to 
IGGO0201Z. Executor IGG0201B receives control after executors 
IGGO201A or IGG0201Z if QSAM was used with an output data set 
and a channel program encountered an error condition while one 
of the other CLOSE executors had processor control. Executor 
IGGO2Z01P receives control from IGGO2Z01A whenever the 3525 or the 
3505 with OMR or RCE is specified. Executor IGGO201R is an 
extension of IGGO201P. Executor IGGO201W receives control 
whenever a SYSIN or SYSOUT data set is being processed. 


Control returns to the CLOSE routine of I/0 support when CLOSE 
executor processing is completed. 


Access Method Options Selections 


Tape or unit record X X X X 
Direct-access storage 

Permanent error or X X 
end-of-volume condition when 

using QSAM for output (tape, 

DA only) 


*, DATA, or SYSOUT specified X 
on DD statement 


3505 COMR/RCE) or 3525 X 
Executors 

IGGO201A 1A 1A lA 
IGGO0201B 1B 1B 
IGGO0201P 1P 
IGGO0201R 1R 
IGGO201W 1W 
IGGO0201X 1X 1X 

IGGO201Y 1lY 1Y 
IGG0201Z 1Z 1Z 





Figure 25. CLOSE Executor Selector 


CLOSE Executor IGGO201A: IGGO201A receives control from the 
CLOSE routine of I/O support if the DCBDSORG field specifies a 
value of PS and if the device type is tape or unit record. 

The executor operates as follows: 

e It turns on the CLOSE-in-process bit in the DCB. 


e If the 3525 or the 3505 with either OMR or RCE is specified, 
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the executor specifies in the WIG table that executor 
IGGO0201P is required for this DCB. 


° For QSAM output on 2540 devices, it issues EXCP macro 
instructions to punch two blank cards to allow the ERPs to 
gain control when an error occurred on either of the two 
last cards punched. 


° For QSAM input or BSAM data sets, a PURGE macro instruction 
is issued. 


e If the OPEN parameter is output and the DCB specifies QSAM, 
the executor issues a TRUNC and, if the processing mode is 
Locate, a PUT macro instruction to cause scheduling of the 
last buffer. On return of control, the executor awaits 
execution of the last channel program. The TRUNC and PUT 
routines are entered via the SYNCH SVC if the user's Key is 
greater than 7 


° If all channel programs were executed without encountering 
either an end-of-volume condition or a permanent error, the 
executor continues processing. 


° For magnetic tape devices, if any of the preceding channel 
programs encountered an end-of-volume condition, the 
executor specifies in the WIG table that executor IGG0201B 
1s required for this DCB. Depending on the remaining 
entries in the WTG table, it then either processes another 
DCB, or passes control to executor IGG0201B. 


e For printers, if the clear printer 1s a valid command, clear 
printer/nop commands are issued to ensure all data has been 
printed. For other printers, issue a WRITE NOSPACE command 
to clear the printer print line buffer. 


° It sets an audit trail bit to indicate that a PURGE has been 
done. These bits have meaning only during force close 
processing. The audit trail is passed to a user's STAE 
routine. 


e It sets up the WIG table to pass control to IGGO201X. 


e It then searches the WIG table to process another DCB or 
pass control to another executor. 


CLOSE Executor IGG0201B (Error Processing): IGG0201B receives 
control after either executor IGGO2Z01A or IGGO201Z if one of the 
latter finds that a channel program for an output data set using 
QSAM encountered a permanent error or an end-of-volume 
condition. 


The executor operates as follows: 


e It determines whether a channel program encountered a 
permanent error or an end-of-volume condition. 


e If a permanent error occurs for a direct-access device, it 
enters the track balance routine to get the bad record 
erased. 


e If a channel program encountered an end-of-volume condition, 
the executor finds the IOB associated with that channel 
program and issues an EOV. When control returns, the 
executor performs its remaining processing, unless one of 
the channel programs encountered a permanent error or 
another end-of-volume condition. In either of those cases, 
it resumes processing as it did when it first received 
control. 


e If the DCB specifies either a DCBDSORG field value of PO or 
POU with a DD statement of the form DSNAME CMEMBERNAME) the 
executor issues a STOW macro instruction. On completion of 
the STOW routine, the executor tests for errors, such as 
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insufficient space in the directory. For any type of error, 
the executor issues an DMABCOND macro instruction. 


The executor specifies in the WIG table that the next 
executor needed for this DCB is either IGGO201Y for 
direct-access devices or IGG0201X for all other devices. 


It then searches the WIG table to either process another DCB 
or to pass control to the next module. 


CLOSE Executor IGG0201P: This module receives control from 
IGGO201A whenever: 


The 


The 3525 is specified or the 3505 is specified with either 
OMR OR RCE. 


module operates as follows: 
It turns on the CLOSE-in-process bit in the DCB. 


Tests are made to determine if either OMR or RCE is being 
used with the 3505. 


If either is being used, the module issues a feed and 
stacker-select command (with the OMR/RCE flag bit off) to 
return the device to normal punched mode. 


If either an associated data set or PRINT is being used with 
the 3525, the following apply: 


File Type Feed Caused by Close of 
Print Print File 

Read/print Read File? 
Read/punch/print Read File 

Read/punch Read File? 

Punch/print Punch File 
Punch/interpret Punch File 

Read Read File 

Punch Punch File 

Notes: 


i A feed is executed if an end-of-file is caused by the 


hardware; a feed is not executed if it 1S caused by a 
data delimiter card. 


Punching or printing delimiter cards is not allowed for 
these file types, because the CLOSE routine always 
issues a feed command. 


If a channel program for an output (QSAM) data set 
encountered a permanent error, IGG0201B is specified in the 
WTG table as the next executor required for this DCB. 
Otherwise, executor IGGO201R is specified in the WTG table. 


It then searches the WTG table to pass control to another 
executor. 
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CLOSE Executor IGG0201R: This module receives control from 
IGGO201P. 


The module operates as follows: 

e It frees buffer space from the buffer pool. 
° It also frees IOB and ICB space. 

e It clears BSAM and QSAM vectors in the DCB. 


e It specifies in the WIG table that executor IGGO201B is the 
next executor required for this DCB. It then searches the 
WTG table to pass control to another executor. 


CLOSE Executor IGGO0201W (SYSIN/SYSOUT): Executor IGG0201W 
receives control if the CLOSE routine (see Diagram L) determines 
that the SAM-SI CLOSE executor is required to process a DCB for 
a SYSIN or SYSOUT data set. 


The executor operates as follows: 


° It constructs a CLOSE parameter list for the ACB built by 
the SAM-SI OPEN executor for this DCB. 


e If QSAM PUT locate mode is specified, a final PUT macro 
instruction is issued to clear the I/O area. 


e It deletes the BSAM (CIGGO19DK and IGGO1L9OBB) or QSAM 
CIGGO19DJ and IGGO19AQ) processing modules loaded by the 
OPEN executor, IGG0O198L. The processing modules that handle 
CI and SAM requests CIGGO19BB and IGGO19AQ) are not deleted 
if concatenation is in process. 


e It issues a CLOSE macro instruction for the ACB. 


e It issues a FREEMAIN macro instruction for the area occupied 
by the JES compatibility interface control block (CCICB) and 
the record area obtained for collecting BSAM variable 
spanned segments. 


e It searches the WTG table to pass control to another 
executor. 


CLOSE Executor IGGO0201X: Executor IGGO201X is a continuation of 
executor IGGO2Z01A and receives control from that executor or 


from IGGO201B if an EOV condition arose during processing in 
IGGO2Z01A. 


The executor operates as follows: 
e For QSAM: 


It frees the record area if it was gotten by the OPEN 
executors. 


It frees the buffers gotten by the OPEN executors if 
concatenation of unlike attributes was specified. 


It returns the buffer to the buffer pool for all other 
conditions. 


e The executor computes the amount of space occupied by the 
channel programs, IOBs (Cand ICBs, if chained scheduling is 
used), and returns that space to the supervisor by using a 
FREEMAIN macro instruction. 


e It sets audit trail bits to indicate what processing was 
done. These bits have meaning only during force close. The 
audit trail is passed to a user's STAE routine. 


e The executor specifies in the WIG table that CLOSE executor 
processing is completed for this DCB. Depending on the 
remaining entries in the WIG table, it then processes 


144 MVS/XA SAM Logic LY26-3967-0 © Copyright IBM Corp. 1977,1985 


Contains Restricted Materials of IBM 
Licensed Materials ~— Property of IBM 


another DCB, returns control to the CLOSE routines, or, if 
force CLOSE is in control, returns to the SAM force CLOSE 
executor, IGG020T1, with a return code of 0 in register 15. 


CLOSE Executor IGG0201Y: IGGO201Y receives control from 
executor IGG0201Z or from IGG0201B if an EOV or permanent error 
was detected by IGG0201Z. 


The executor operates as follows: 


e When record-ready channel programs are constructed, a 
GETMAIN macro instruction is issued for more bytes during 
open IOB construction. In the CLOSE routine, when the IOB 
and channel program areas are freed, the number of 
additional bytes is computed and added to the byte count 
before issuing the FREEMAIN macro instruction. 


e It frees the segment work area for a DCB that specifies 
BFTEK=R, RECFM=VS, and MACRF=WL. 


e It returns buffers to the buffer pool if they were gotten by 
open executors. 


e It frees the SAMB, ICQE, and IOBs if they were gotten by the 
OPEN executor. It also zeros the addresses of these control 
blocks in the DCB. 


e It frees the buffers if concatenation of unlike attributes 
was specified. 

e It frees the record area obtained by an OPEN operation when 
a nt specifies BFTEK=A, spanned record, and QSAM locate 
mode. 


e The executor specifies in the WIG table that processing for 
this DCB is completed. Depending on the remaining entries 
in the WTG table, it then processes another DCB, returns 
control to the common close routines or, if force CLOSE is 
in control, returns to the SAM force CLOSE executor, 
IGGO20T1, with a return code of 0 in register 15 


CLOSE Executor IGG0201Z: Executor IGG0201Z receives control 
from the close routine of O/C/EOV if the DCBDSORG field 
specifies a value of PS or PO and if device type is 
direct-access storage. 


The executor operates as follows: 


e If the task is abnormally terminating, the following 
processing takes place. 


= No executor processing is performed if the data set is 
open for input or update, or the last operation was not 
a write, or the DEB extension indicates an 
OPEN/CLOSE/EOV ABEND occurred. 


= For partitioned data sets, DCBFDAD is set from DCBRELAD. 
SVC 25 is issued and no further executor processing is 
performed. 


_ For sequential data sets processed by BSAM, DCBFDAD is 
set from the IOBSEEK field in the SAMBIOB. SVC 25 is 
issued and no further executor processing takes place. 


_ For sequential data sets processed by QSAM, normal 
executor processing listed below is performed. Purged 
I/0 is restarted. 


e If the OPEN parameter is OUTPUT and the DCB specifies QSAM, 
the executor issues a TRUNC and, if in locate processing 
mode, a PUT macro instruction to cause scheduling of the 
last buffer. On return of control, the executor awaits 
execution of the last channel program. 
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e For QSAM input or BSAM data sets, a PURGE macro instruction 


1S issued. 

e If all channel programs were executed without encountering 2S) 
either an end-of-volume condition or a permanent error, the 
executor continues processing. 


e If any of the preceding channel programs encountered either 
a permanent error or an end-of-volume condition, the 
executor specifies in the WIG table that executor IGGO201B 
is required for this DCB. Depending on the remaining 
entries in the WTG table, it then either processes another 
DCB, or passes control to executor IGG0201B. 


e If OUTPUT and either a DCBDSORG field value of PO, or WRITE 
or PUT with a DD statement of the form DSNAME CMEMBERNAME) 
is specified, the executor issues a STOW macro instruction. 
On completion of the STOW routine, the executor tests for 
I70 errors and for logical errors, such as insufficient 
space in the directory. For either type of error, the 
executor issues a DMABCOND macro instruction. 


e The executor specifies in the WIG table that module IGGO201Y 
is the next executor for this DCB. Depending on the 
remaining entries in the WIG table, it then either processes 
another DCB or transfers control to the next module. 


FORCE CLOSE EXECUTORS 


SAM-SI Force CLOSE Executor IGGO20FC: Executor IGGO20FC 
receives control from the O/C/EQV force CLOSE executor module, 
IFGORROB, when it determines that DCBs under JES control must be 
closed. The executor frees resources acquired for opened or 
partially opened SYSIN and SYSOUT DCBs that are being forced to 


a closed status. It provides as much of the normal close 
functions as possible in restoring the DCB to its preopen } 
condition. 
The executor locates the CICB and performs the following 
operations: 
e Issues a CLOSE macro instruction for the ACB contained in 
the CICB. 
e Frees the record area for variable-length spanned records. 
e Deletes any processing modules loaded for this DCB. 


e Frees the storage obtained for the CICB. 
e Returns control to the calling routine. 


If the failure occurs during open processing and the CICB was 
not created, no further processing is required and control is 
returned to the calling routine, with a return code of 0. 


If the CICB cannot be located because the error occurred during 
other than open processing, control is returned to the calling 
routine, with a return code of 4G. 


Force CLOSE Executor IGG020T1: Executor IGGO020Tl receives 
control from IFGORROB during force close processing for SAM, 
PAM, or DAM data sets. The primary function of the force CLOSE 
executor is to free resources associated with the DCB. 


The executor operates as follows: 
e If the error occurred during close for QSAM or BSAM output 
DCBs, DCBFDAD is set from the IOBSEEK field in the SAMB IOB ) 


for sequential data sets, and from DCBRELAD for partitioned 
data sets. SVC 25 is issued using the SAMB JOB. 
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e If the error occurs during open processing and the user's 
copy of the DCB has not been updated by the OPEN executors, 
the following actions are taken: 


For SAM or PAM: 


e It frees a logical record area if obtained by OPEN 
executors. 
e It frees the buffer pool if the user's buffers were gotten 


by the OPEN executors and concatenation of unlike attributes 
was specified; otherwise, it returns the buffers to the 
buffer pool. 


e It frees the IOBs and ICBs and their channel programs if 
they were gotten by the OPEN executors. 


e It frees the segment work area if it was gotten by OPEN 
executors. 


e It frees the SAMB if it was obtained by the OPEN executor. 


° It deletes the message CSECT if it was loaded by the OPEN 
executors. 


° It deletes any UCS and FCB images loaded. 

e It issues a CLOSE IMGLIB SVC for SYS1.IMAGELIB. 
For BDAM: 

° It frees the buffers. 

° It frees the unscheduled list if it exists. 


e It frees the segment work area if it was gotten by the OPEN 
executors. 


° It frees the READX list if it was gotten by the OPEN 
executors. 


The force CLOSE executor then returns to common CLOSE with a 
return code of zero in register 15. 


If the error occurs during open processing and the user's DCB 
was refreshed from the protected DCB, the force CLOSE Executor 
sets up a retry address at RRXRETRY and attempts to execute the 
normal CLOSE executor string. It also issues a FREEMAIN macro 
instruction for the register save area gotten by IGG01911 when 
Priming QSAM input buffers. 


e If normal CLOSE processing is successful, the CLOSE 
executor, upon detecting a force CLOSE entry, returns to 
this force CLOSE executor with a return code of zero in 
register 15. 


e If normal CLOSE processing is not successful, the second 
level recovery routine of O/C/EOV gives control to the 
address specified in RRXRETRY. The force CLOSE executor 
then moves the audit trails to the component recovery status 
a ea (CRSA) with a return code of 8 in register 15. 


If the error occurs during other than open processing, the force 


CLOSE executor returns to the common close recovery routine with 
a return code of 8 in register 15. 
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Buffer-pool management routines form virtual storage space into 
buffers, and return buffers that are no longer needed. 
Figure 26 lists the buffer-pool management routines. 


Type 


Module Name Function 


GETPOOL IECQBFG1 This routine obtains virtual 


storage and forms a buffer 
pool. 


BUILD IECBBFB1 This routine forms a buffer 


pool in virtual storage 
supplied by the processing 
program. 


GETBUF (Macro Expansion) This routine provides buffers 


from the buffer chain. 


FREEBUF (Macro Expansion) This routine returns buffers 


to the buffer pool. 


FREEPOOL (Macro Expansion) This routine returns virtual 


storage previously used for a 
buffer pool. 


BUILDRCD IGGO19B0 This routine allows a pointer 


to a record area to be 
incorporated ina buffer pool 
in virtual storage supplied by 
the processing program. 


Figure 26. Buffer-Pool Management Routines 


GETPOOL Module IECQBFG1: Module IECQBFG] obtains 
virtual-storage space and forms it into buffers. It is loaded at 
execution time by a LINK macro instruction. 


The module operates as follows: 
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It rounds the buffer length to the next higher doubleword 
multiple if the specified length is not such a multiple. 


It determines buffer alignment from the DCBBFALN field value 
in the DCB. 


It computes the number of bytes required and issues a 
GETMAIN macro instruction. 


It constructs a buffer-pool control block in the first 8 
bytes of storage obtained. 


If doubleword (not fullword) alignment is specified in the 
DCBBFALN field in the DCB, the module starts the first 
buffer at the byte immediately following the BUFCB. 


If fullword not doubleword) alignment is specified in the 
DCBBFALN field, the module skips one word after the 
buffer-pool control block before starting the first buffer. 


It chains the first buffer to the buffer-pool control block 
and determines the start of the next buffer by adding the 
rounded buffer length value to the address of the first 
buffer. The module chains the next buffer to the preceding 
ee ori continues until all the buffers have been 
chained. 


It returns control to the processing program. Figure 27 on 
page 149 illustrates the buffer-pool control block (CBUFCB) 
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that describes the buffer pool. Figure 28 on page 149 
illustrates the buffer-pool structures formed by the GETPOOL 
module. 





BUFAD BUFNO BUFL 
First Available Buffer Buffers Requested Each Buffer 
Byte 0 4 6 8 


Figure 27. Buffer-Pool Control Block 


Doubleword Fullword (Not Doubleword) 
Buffer Alignment Specified Buffer Alignment Specified 


ea BUFCB BUFCB 
a ‘A 


oes LLLLLLLL 










LL. 


<@——— 2 Words ——_——_> 


Figure 28. GETPOOL Buffer-Pool Structures 


BUILD Module IECBBFB1: Module IECBBFB1 forms virtual storage 
space supplied by the processing program into buffers. It is 
loaded at execution time by a LINK macro instruction. 


The module operates as follows: 


e It rounds the buffer length to the next higher fullword 
multiple if the specified length is not such a multiple. 


e It constructs a buffer-pool control block in the first 8 
bytes of the virtual-storage space provided by the 
processing program. 


e It starts the first buffer at the byte immediately following 
the buffer-pool control block. 


e It chains the first buffer to the buffer pool control block 
and determines the start of the next buffer by adding the 
rounded buffer-length value to the address of the first 
buffer. The module chains the next buffer to the preceding 
buffer, and continues until all the buffers are chained. 


e It returns control to the processing program. 


Figure 29 on page 150 lists, for each possible combination 
of space alignment and buffer length parity, the 
illustration that shows the structure of the resulting 
buffer chain or pool. Figure 27 illustrates the buffer pool 
control block (CBUFCB), Figure 30 on page 150 illustrates the 
various buffer alignments that the Build module forms. 
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GETBUF Macro Expansion: The purpose of this coding is to 
provide the next buffer from the buffer pool. The macro 
expansion produces inline code that presents the address of the 
next buffer to the processing program and updates the 
buffer-pool control block to point at the following buffer. 


FREEBUF Macro Expansion: The purpose of this coding is to 
return a buffer to the buffer chain. The macro expansion 
produces inline code that stores the address presently in the 
buffer-pool control block in the first word of the buffer being 
returned, and then stores the address of that buffer in the 
buffer-pool control block. 


Parity of number of words 
in buffer length after 
Alignment of first byte rounding up length 


of space passed in parameter macro of BUILD Buffer pool 
BUILD macro instruction macro instruction structure 
Doubleword Even A 

Odd B 
Fullword Even Cc 
(Not doubleword) Odd D 


Figure 29. Build Buffer-Structuring Table 


FREEPOOL Macro Expansion: The purpose of this coding is to 
return the space previously allotted to the buffer chain to 
available virtual storage. The macro expansion produces inline 
code that computes the total number of bytes to be returned, 
issues a FREEMAIN macro instruction, and sets the DCBBUFCB field 
in the DCB to show that no buffer pool is associated with that 
DCB. 






-| BUFCB- 


a 





Figure 30. Build Buffer Pool Structure 
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BUILDRCD Routine IGGO19B0: This routine forms virtual-storage 
space supplied by the processing program into buffers and links 
the buffer pool to a record area also supplied by the processing 
program. It is loaded at execution time by a LINK macro 
instruction. 


The module operates as follows: 


e It rounds the buffer length to the next higher fullword 
multiple if the specified length is not such a multiple. 


e It constructs a buffer-pool control block (see Figure 33 on 
page 170) in the first 12 bytes of the virtual-storage space 
provided by the processing program. 


e It turns on the high-order bit of the BUFLG byte of the 
buffer-pool control block to indicate that a record area 
address 1S present. 


e It clears the control field (32 bytes) of the record area. 


e It stores the record area length in the record area (see 
Figure 34 on page 241) provided by the processing program. 


e It chains the first buffer to the buffer-pool control block 
and determines the start of the next buffer by adding the 
rounded buffer length value to the address of the first 
buffer. The next buffer is chained to the preceding buffer 
until all buffers are built. 


e It returns control to the processing program. 


Figure 31 on page 151 illustrates the buffer-pool control block 
CBUFCB) that describes the buffer pool when logical record 
interface 1s required for variable-length spanned records 
processed in the locate mode. 


Figure 32 illustrates the record area used to assemble and 
segment a spanned record. This record area is either acquired 
dynamically by data management at OPEN time, when the DCB 
specifies RECFM-VS/VBS, MACRF=GL/“PL, and BFTEK=A, or provided by 
the problem program by means of a BUILDRCD macro instruction. 


BUFAD BUFLG | BUFNO |BUFLTH BUFRECAD 


Address of Address of 
First Available Record 
Buffer Area 





















Requested | Buffer 


Byte O 4 5 6 8 12 
Figure 31. Buffer-Pool Control Block 


BUFAD G bytes; contains the address of the first available 
buffer in the pool. 

PUFLG 1 byte; set to X'CO' when a record area address is 
present in the buffer control block. 
Bit Meaning 
0-1 Record area present 
1-1 Buffer control block extended 
2-7 Reserved 

BUFNO 1 byte; contains the number of buffers requested. 
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BUFLTH 2 bytes; contains the length, rounded to the nearest 
fullword of each buffer requested. 

BUFRECAD 4 bytes; contains the starting address of the record 2 
area. 








Length Index Position | Track 
to Address to 
Beginning Beginning 
of Data in Block | Segment of | Address 
Record 
















Count 


Field Reserved Data 








Byte 4 5 6 8 16 20 22 24 «32+ 
0 LRECL 


Figure 32. Record Area Used to Assemble and Segment a Spanned 
Record 





A description of the fields contained in the record area 
follows: 


e Length of Record Area. This 4-byte field contains the 
length of the entire record area (data field + 24 bytes). 
The length may be determined by the LRECL of the DCB macro 
at OPEN time plus 8 bytes for alignment or it may be 
specified in the length of the record area parameter of the 
BUILDRCD macro instruction, in which case the BUILDRCD 
routine places the length of the record area in this field. 
If extended logical record interface (XLRI) is used, the DCB 
LRECL value is a multiple of 1024, which is used to 
calculate the requested record area size. The second bit of 
the first byte of this field is set on by the COBOL | 
processor to indicate special processing of variable-length 
spanned records. If this bit is set, all records (spanned 
or nonspanned) are presented to the processing program in 
the record area. 


e Flags. This l-byte field is used for internal data 
management control flags. 


° Index to Beginning of Data. This l-byte field contains the 
index value to the beginning of the data (record descriptor 
word) in the data field. 


® Position of Record in Block. This 2-byte field contains the 
relative position of the beginning segment of a record 
within the block. 


® Track Address to Beginning Segment of Record. This 8-byte 
field is used to save the track address of that block that 
has a beginning segment of a record that is being processed. 
The low-order 3 bytes of this field are used to save the 
record address of the block that will have the beginning 
segment of a record if a spanned record is to be written. 


e Next IOB Address. This 4-byte field is used to save the 
next IOB address if a spanned record is to be written. 


e Count Field. This 2-byte field is used to accumulate the 
number of bytes of data moved while segmenting. For 
extended logical record interface (XLRI), the count field is 
four bytes long and includes the two bytes of the following 


field. 

° Reserved. Not used. If extended logical record interface 
(XLRI) is used, this field is used as part of the count ; 
field. 
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e Data. The assembled logical record is located in this 
field. The maximum length of this field is either 
determined by the LRECL field of the DCB macro at OPEN time 
plus 8 bytes for alignment or equal to 24 bytes less than 
the length of the record area parameter of the BUILDRCD 
macro instruction. 


PROBLEM DETERMINATION 


Problem determination assists the user in determining the causes 
of abends by providing more information as to the cause of the 
abnormal termination. The recording and making available of 
significant information about the problem may eliminate the need 
for a storage image dump. Better abend interpretation will be 
possible with the following problem determination operations: 


e Write-to-programmer giving the abend code, a return code 
that further describes the abend condition, and job 
environment information. 


e Recording of all control blocks relevant to the abend 
condition on a GTF data set, which will be dumped 
automatically by ABDUMP, or at the user's initiation by 
AMDPRDMP. 


e A user abend exit is provided to allow the evaluation of the 
condition before the abend is taken. 


e An abend that provides a dump of relevant control blocks. 


Problem determination is of particular benefit in the OPEN 
executors because having an alternative to an immediate abend 
results in greater latitude in the control of the termination of 
a task. The error can be evaluated and the need for that data 
set at the time the error occurred can be determined, with the 
option to continue processing without it. 


Problem Determination Module IFGO559C: Module IFG0559C traces 
the data associated with a particular abend. 


The module operates as follows: 

e It receives control through an XCTL macro instruction from 
the O/C/EOV problem determination module, IFG0559B, when it 
senses a SAM problem determination flag. 


e It issues a MODESET macro instruction to change to the key 
of the caller. 


e It issues a GETMAIN macro instruction for work area storage. 
e If the GETMAIN macro instruction is successful, it issues a 
GTRACE macro instruction to record, in the GTF data set, the 
data associated with the abend designated by the abend and 
condition codes. In addition to the TIOT DDNAME and the 
abend condition code, which are always present, one or more 
of the following data areas is traced: 
DCB for BSAM or QSAM 
DECB for BSAM only 
Track capacity - maximum block size 
Current DEB extent entry 
All DEB extent entries 
IOB or ICB seek field 


First 88 bytes of the BDW and the block currently being 
processed 
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First 88 bytes of the RDW and the record currently bring 
processed 


The following is a list of abends, their associated condition 
codes, and the data traced for each. 





ABEND Condition 


Code Code Areas Traced 

002 04 DCB, IOB or ICB seek field, record 

002 08 DCB, DECB, block 

002 oc DCB, DECB, maximum block size, block 

002 10 DCB, DECB, block 

002 14 DCB, DECB, block 

002 18 DCB and record 

002 1c DCB, DECB, maximum block size, block 

002 20 DCB, DECB, current DEB extent, maximum 
block size, block 

002 24 DCB, DECB, current DEB extent, maximum 
block size, block 

008 04 All DEB extents, block 

e If the GTRACE macro instruction is successful, a LOAD macro 


instruction is issued to load the message CSECT, IGGMSGO1. 

A WTO macro instruction is issued to inform the programmer 
that the GIF data set contains records associated with this 
abend. Upon return, a DELETE macro instruction is issued to 
delete the message CSECT. 


e It issues a FREEMAIN macro instruction to release the work 
area storage. 


e It transfers control to module IFGO559E upon successful 
completion or if an error occurred in the GETMAIN or GTRACE 
macro instruction. 


SVC routines are used when the process requires operation in the 
supervisor state. The functions provided are ones that cannot 
be done in the problem state or in the user's key. 


DEVTYPE SVC Routine IGC0002D: This routine locates and passes 
to the requestor the characteristics of the device specified in 
the DD statement. The module operates as follows: 


e It issues an ESTAE macro instruction to establish a task 
recovery routine, IGCT002D, to intercept abnormal 
terminations. 


e It searches the UCB, its DASD class extension table, and the 
device characteristics table for the required information. 


e For the 3340 and the 3380 Call models), it determines the 
number of cylinders on the pack. 
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IMGLIB ROUTINE 


TRACK BALANCE, 


e It places the data in the output area and returns to the 
calling program. 


IMGLIB SVC Routine IGCOO1OE: The IMGLIB SVC routine, IGCOOLOE, 
builds a skeleton DCB and DEB for the SYS].IMAGELIB data set or 
deletes the DCB and DEB for the SYS]1.IMAGELIB data set, 
depending on the parameter passed to it in register 1. The 
routine is entered from the SVC 105 instruction. 


The IMGLIB macro is issued by OPEN executors and by SETPRIT 
routines and can be issued by users. 


The routine operates as follows: 


e It issues an ESTAE macro instruction to establish a TRR;, 
IGCTOLOE, to intercept abnormal terminations. 


e It makes a test to determine whether the control blocks for 
IMAGELIB need to be built or deleted. If register 1 
contains 0's, a DCB and DEB are built. 


e It uses a GETMAIN macro instruction to obtain a work area 
and then uses a LOCATE macro instruction to determine where 
the IMAGELIB volume is residing. 


e It takes the address of the UCB table from the CVT and 
searches for the corresponding UCB. 


e It uses the OBTAIN macro instruction to read in the format-l 
DSCB and uses the information read and the UCB address to 
construct a skeleton DCB and DEB for the SYS1]1.IMAGELIB 
volume. The format-l DSCB describes up to three extents. 
The SYS1.IMAGELIB data set can reside on up to 16 extents on 
a permanently resident volume. 


e If there are more than three extents on SYS1.IMAGELIB, the 
format-3 DSCB seek address is obtained from the format-—l 
DSCB. It uses the OBTAIN macro to read in the format-3 DSCB 
and uses the information read and the UCB address to 
construct additional DEB extent descriptions. 


e If register 1 contains an address when the routine tests to 
determine whether the control blocks for the IMAGELIB volume 
need to be built or deleted, the DCB and DEB for IMAGELIB 
are to be deleted. 


e It uses the FREEMAIN macro instruction to delete the control 
blocks. If the DEB is not on the DEB chain or it does not 
point back to the DCB, a 169 abend is issued. 


e It returns control to the calling routine through a BR 14 
instruction. 


TRACK OVERFLOW ERASE, DEB/SAMB UPDATE ROUTINES 


Control Module IGCOO0OO2E (SVC 25-——Track Balance, Track Overflow 
Erase, DEB/SAMB Update): Module IGCOOO02E consists of a track 
balance routine, a track overflow erase routine, and an update 
routine. The track balance routine calculates the available 
space at the end of a track and erases the end of the track. 
The track overflow erase routine erases the end of a track and 
perhaps several full tracks. The update routine either updates 
the SAMB's IOBSEEK field or initializes the DEB's DEBBLKSI 
field. The track balance routine determines the available space 
by reading the count fields of the records on the track and 
erasing the remainder of the track; the track-overflow erase 
routine erases tracks at the end of each extent on which there 
are no data fields for blocks of the data set to which the 
extent belongs. The routine is used when a block in a data set 
with track-overflow record format would span extents. 
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This module is entered when SVC 25 is executed by the following 


modules: 2.) 
READ/WRITE module IGGO19BA Ctrack balance) 
End of Block module IGGO19TV Cupdate DEBBLKSI) 
NOTE/POINT module IGGO19BK Cupdate SAMB) 
CLOSE executor IGG0201B (track balance) 


e It issues an ESTAE macro instruction to establish a TRR, 
IGCTOO2ZE, to intercept abnormal terminations. 


Track Balance Routine: This routine is given control when 
register 1 on input is not negative and the track-overflow flag 
DCBCNTOV in DCBCIND1 is zero. The track balance routine 
establishes a valid value for the DCBIRBAL field of a DCB opened 
for output to a direct-access device, when the field value has 
been invalidated by a preceding READ, POINT, or OPEN macro 
instruction. 


The routine operates as follows: 


e DCBFDAD is established as the record preceding the next 
record to be written. 


e If the record number in DCBFDAD is zero, the whole track is 
available. DCBTRKBAL is set equal to the track capacity of 
the device (from the device characteristics table) and 
control is returned to the caller. 


e A work area is obtained, a channel program is built, and an 
EXCP is issued to read the count fields CCCHHRKDD) of each 
record on the track, up to the number indicated by DCBFDAD. 
The channel program ends with an erase CCW, which erases all | 
records following the last record (as indicated by DCBFDAD). 


° It determines the exact track balance by subtracting the sum 
of all key-lengths and data lengths in all the count fields 
and the not-last record overheads from the track capacity 
and inserts the difference in the DCBTRBAL field of the DCB. 


Track-Overflow Erase Routine: This routine is given control if 
register 1 on input is not negative and the track overflow flag 
CDCBCNTOV in DCBCIND1) is one. The track-overflow erase routine 
erases the space on a direct-access storage device that lies 
between the last block to be written into the current extent and 
the end of that extent. 


The routine operates as follows: 
e It receives control when it is loaded. 


® It substitutes ERASE commands for the WRITE commands in the 
channel program associated with the present IOB. 


® It issues an EXCP macro instruction to cause execution of 
the channel program and a WAIT macro instruction for its 
completion. 


® It returns control to the track-overflow write routine, 
irrespective of any errors in the execution of the channel 
program. 


DEB/SAMB Update Routine: This routine is given control if 
register l is negative. The DEB is validated by branching to 
the DEBCHK routine. If register 0 is zero when SVC 25 is 
entered: 


° The DEBBLKSI field is initialized as the sum of key length S) 
and block size in the DCB. 
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BSP ROUTINE 


If register 0 is four when SVC 25 is entered: 


e The IOBSEEK field of the IOB in the SAMB is set equal to 
DCBFDAD. 


Control Module IGCOOO6I (SVC 69-—BSP)}: Module IGCOO006I 
backspaces the data set one block whether the data set is ona 
magnetic-tape or direct access device. 


The expansion of the macro instruction BSP includes an SVC 69 
instruction, which causes the module to be loaded and entered. 


The module verifies that the passed DCB describes a magnetic 
tape or direct-access device data set, and that the data set is 
being processed by BSAM. To accomplish this, the module 
operates as follows: 


e It receives control after it is loaded. 


e It issues an ESTAE macro instruction to establish a TRR, 
IGCT0069, to intercept abnormal terminations. 


e It issues a MODESET macro instruction to change to the Key 
of the caller. 


e If the DCB is being processed by the CI and if a CI 
backspace routine entry point is provided, it gives control 
to the CI routine. When the CI routine relinquishes 
control, or if no CI routine is provided, it returns control 
to the processing program. 


e If the device is a terminal, it returns control to the 
processing program. 


e If a dummy data set is being processed, it returns control 
to the processing program. 


e If the device type is not magnetic tape or direct access, 
reason and return codes are put in registers 0 and 15 and 
control is returned to the caller. 


e If either a tape mark or a direct-access EOF was read, 
reason and return codes are put in registers 0 and 15 and 
control is returned to the caller. 


® It issues a GETMAIN macro instruction to obtain storage in 
which to build an IOB, an ECB, and a channel program. 


e It builds and initializes an IOB and an ECB. 


From this point on, the control path depends upon the type of 
I/O device. 


For magnetic tape, the module operates as follows: 


e It constructs and issues an EXCP macro instruction for a 
channel program to backspace one block, followed by a NOP to 
obtain device-end information from the backspace channel 
program. 


e If the backspace channel program executed normally, the 
module sets register 15 to zero and returns control to the 
processing program. 


e If the channel program executed with an error other than 
unit exception, the module sets the DCBIFLGS field to 
indicate a permanent error. The CHECK macro instruction, 
following the next READ or WRITE macro instruction, causes 
the CHECK routine to pass control to the processing 
program's SYNAD routine. 
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e If the backspace channel program executed with a unit 
exception, the module constructs and issues an EXCP macro 
instruction for a channel program to forward space the tape 
one block, followed by a NOP to obtain device-end 
information from the forward space channel program. When 
channel end for the NOP occurs, the module returns control 
to the processing program with register 15 set to an error 


code. 

e It issues a FREEMAIN macro instruction to free the work 
area. 

@ It issues a MODESET macro instruction to return to KEY 0 and 


returns control to the caller. 
For direct-access devices, the module operates as follows: 


e It decreases the DCBFDAD field in the DCB to the preceding 
block address across tracks, cylinders, or extents. 


e It sets the DCBOFLGS field to show that the DCBTRBAL field 
value is invalid. 


@ If a valid DCBFDAD value has been established, the module 
updates the DCBFDAD value. It also updates the IOBSEEK 
field in the SAMB's IOB and sets the SAMSCHPR flag in the 
SAMB. Next, the module updates the IOBSEEK field in the 
next user IOB to be scheduled, or in all user IOBs if an 
extent boundary was crossed. 


@ If a track (€or cylinder or extent) boundary is backspaced 
over, all records’ counts on the track backspaced to are 
read. The last record's count field is used to identify the 
last record on the track. 


@ If there is no valid preceding DCBFDAD value because the 
processing program has attempted to backspace beyond the 
first block, the module returns control to the processing 
program, with register 15 set to an error code. 


e If a permanent error is encountered when reading the count 
fields (to establish the preceding DCBFDAD field value), the 
DCBIFLGS field value is set to indicate a permanent error. 
The CHECK routine, following the next READ or WRITE macro 
instruction, causes control to pass to the processing 
program's SYNAD routine. 


e It issues a FREEMAIN macro instruction to free the work 
area. 
e It issues a MODESET macro instruction to return to KEY 0 and 


returns control to the caller. 


STOW Module IGCO002A (SVC 21): Module IGC0002A builds the 
control blocks, buffers, and channel program required to perform 
the requested function and to do the diagnostics to verify the 
validity of the caller's request. 


The expansion of the STOW macro instruction includes an SVC 21 
instruction that causes this module to be loaded and to gain 
control. The STOW macro instruction is issued in one of two 
ways: 


e Explicitly by a processing program using BPAM for output. 
e Implicitly by a processing program using BSAM, QSAM, or BPAM 


for output, when issuing a CLOSE macro instruction to a DCB 
opened for a member of a partitioned data set. 
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The module operates as follows: 


It receives control when it is loaded. 


It issues an ESTAE macro instruction to establish a TRR, 
IGCTOO02Z1, to intercept abnormal terminations. 


It issues a MODESET macro instruction to change to the key 
of the caller. 


If the DCB is neither OPEN nor OPEN for input, a MODESET 
macro instruction is issued to return to Key 0, reason and 
return codes are put into registers 0 and 15, and control is 
returned to the caller. 


It issues a GETMAIN macro instruction to obtain storage for 
a work area in which to save information about the function 
being performed; save the parameters supplied by the caller; 
and build an IOB, ECB, channel program, and three buffers 
used in reading and writing directory blocks. 


If the GETMAIN macro instruction is not successful, a 
MODESET macro instruction 1s issued to return to key 0, 
reason and return codes are put into registers 0 and 15, and 
control is returned to the caller. 


It initializes the channel program and issues an EXCP macro 
instruction to search the directory for an entry block with 
a key equal to or higher than the member name. It reads 
that and the next entry block into the input buffers. For 
the change option (C), the search is on the member name that 
is the lowest in alphameric sequence. 


It checks the validity of the option requested, as follows: 


Add. Verifies that the member name does not already 
exist. 


Replace. Verifies that the member name exists and, if 
not, sets the return code and changes the option to Add. 


Change. Verifies that the member name to be changed 
exists and that the new member name does not duplicate 
an existing name. 


Delete. Verifies that the member name exists. 


If an I/0 error occurs while directory entry blocks are 
being read or if the option requested is invalid, a FREEMAIN 
macro instruction is issued to free the work area, a MODESET 
macro instruction is issued to return to key 0, reason and 
return codes are put into registers 0 and 15, and control is 
returned to the caller. 


If the option requested is valid, the module transfers 
control to module IGGO210A through an XCTL macro 
instruction. 


STOW Module IGGO2Z210A: Module IGGO210A builds the channel 
program used by module IGGO21AB and, if required, writes an EOD 
marker following the last member written. 


The module is loaded and receives control through an XCTL macro 
instruction issued by module IGC0002A. 


The module operates as follows: 


It writes an EOD marker following the last member written if 
the following conditions are met: 


The Add or Replace option was specified. 


The entry being added or replaced is not an alias. 
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The DCB was not opened for RDBACK or UPDATE. 
The last I/0 operation was write. ) 


If the data set must be extended to write the EOD marker, 
the module issues a MODESET macro instruction to change to 
key 0, a SETLOCK macro instruction to obtain the local lock, 
and branches to DEBCHK to check the validity of the caller's 
DEB. If the DEB is valid, the DEBVOLSQ is changed for EXCP, 
a SETLOCK macro instruction is issued to free the local 
lock, and a MODESET macro instruction is issued to return to 
the caller's key. 


It then changes the MACRF operand in the user's DCB to EXCP 
and issues an EOV that points to that DCB. 


Upon return, it restores the MACRF operand and validates and 
restores the DEBVOLSQ field. 


If the DEB is not valid, it issues an ABEND macro 
instruction to terminate processing. 


If an EOD marker is written after the last member, the FDAD, 
RELAD, and TRBAL fields in the caller's DCB are updated. 


If an I40 error occurs while the EOD marker is being 
written, the module frees the work area, returns to key 0, 
sets the reason and return codes in registers 0 and 15, and 
returns control to the caller. 


It returns the TTR of the last member written if the 
following conditions are met: 


The add or replace option was specified. 
The entry being added or replaced is not an alias. ) 


It builds the channel program used by module IGGO21AB to 
read and write directory blocks. 


If no errors are detected, it transfers control to module 
IGGO2Z1AB through a XCTL macro instruction. 


STOW Module IGGO2Z1AB: Module IGGO2Z1AB maintains partitioned 
data set directories in ascending order of the binary values of 
the names of the members. 


Module IGGO21AB is loaded and receives control through an XCTL 
macro instruction issued by module IGGO2Z10A. 


The module operates as follows: 


160 MVS/XA SAM Logic 


If the option requested is add, replace, or change and if 
there are no unused directory blocks, a dry run on the 
directory is made to determine if sufficient space is 
available in which to perform the requested function. 


It adds, replaces, changes the name of, and deletes 
directory entries, per the requested options, by issuing an 
EXCP macro instruction to write and read directory blocks. 


It expands or compresses the directory as necessary to 
accomplish the requested function. 


If an I/O error occurs while writing or reading directory 
blocks, or, if there is not sufficient space remaining in 
the directory, processing in this module is terminated. 


It issues a FREEMAIN macro instruction to free the work 


area ) 
It issues a MODESET macro instruction to return to key 0. i 


It returns control to the calling progran. 
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BLDL OR FIND ROUTINES 


FIND (C Option) Macro Expansion: The macro expansion moves the 
relative address (TTRK) from the passed input parameter list to 
the DCBRELAD field in the requester's DCB. The FIND macro 
instruction then does a branch-and-link to the POINT routine. 


FIND (D option) Macro Expansion: The macro expansion loads the 
DCB address into register 1 and complements it to notify BLDL 
this is a FIND request. The address of the BLDL parameter list 
(that is, the list of member names) is loaded into register 0. 
SVC 18 CBLDL) is then issued. 


BLDL Macro Expansion: This is the same as for the FIND (D 
option) described above, except that the DCB address is not 
complemented. 


Resident Module IGC018 (BLDL): The module gains control through 
an SVC 18 instruction in a processing program. A FIND CD 
option) or BLDL macro instruction expansion generates an SVC 18 
instruction, which causes control to pass to CSECT IGC018. BLDL 
is link-edited into the nucleus as an RSECT Cread only). It 
executes in 3l-bit addressing mode, RMODE ANY, and supports 
3l-bit input parameter lists. 


A second csect in module IGC018, named IECOSCR1, contains the 
system convert routines and is link-edited into the nucleus as 
RMODE 24, AMODE ANY. This means it resides below the 
l1é-megabyte virtual storage line and executes in the addressing 
mode (24 or 31 bit) of the caller. 


Programs may use a BALR instruction and the address found in the 
communication vector table (CVT) for entry points 
IECPCNVTCCVTPCNVT), IECPRLTVCCVTPRLTV), and PTECOSCRIC(CVTOSCRI), 
to pass control to the respective convert routines. 


The BLDL routine operates as follows: 


° It issues an FESTAE macro instruction to establish the 
recovery routine. 


e Based on the key in the DEB (Cpointed to by the passed or 
defaulted DCB) a GETMAIN is issued for a work area in 
subpool 253 for a key 0 data set or subpool 230 for a 
nonzero key data set. Among the contents of the work area 
are the parameter list used if the LNKLST lookaside table is 
available, and the IOB, channel program, and buffers if I/0 
is required. The work area must be in the same key as the 
DCB and DEB. 


® If the LNKLST lookaside table is available, it is searched 
by BLDL for any of the following conditions: 


= The passed DCB is the LINKLIB DCB (same address as in 
CVTLINK). 


= The DCB address is zeros and there is no steplib, 
tasklib, or joblib specified. 


- The specified member(s) are not found in the specified 
data sets. 


Note: The LNKLST lookaside (LLA) directory replaces the 
resident BLDL, table which is initialized during NIP. The 
LNKLST lookaside directory is a resident directory of 
entries built during IPL by starting the LLA procedure. It 
contains the directory entries for all members in 
SYS1.LINKLIB and for all data sets concatenated to it in the 
LNKLST. (See Initialization and Tuning for more information 
on the LNKLST member in SYS1. PARMLIB. ) 


BLDL searches the LNKLST lookaside directory by passing a 
parameter list to the subroutine CSVLLSCH. CSVLLSCH calls 
the LNKLST lookaside cross-memory search routine (CCSVVLSO1), 
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which searches the LNKLST lookaside directory for the member 

name and copies its directory entry into the passed area 

(the user's input parameter list or the BLDL work area, if a 
FIND request). Control is then returned to BLDL. 


If the LNKLST lookaside directory is not available, the 
LNKLST PDS directories are searched. 


e If SYS1.LINKLIB is not the referenced library, or if the 
LNKLST lookaside directory is not available, BLDL issues an 
EXCP to search the directory for a directory block with a 
key equal to or higher than the given member name. That 
directory block is read into virtual storage and searched 
for the matching member name. 


e If the name is in the LNKLST lookaside directory, or the 
matching entry was found ina directory block, the directory 
entry is copied into the user's parameter list. 


@ If this is a FIND request, the relative address is copied 
into the DCBRELAD field in the DCB and control is passed to 
the POINT routine by issuing a BASSM instruction for 
supervisor key callers or a SYNCH macro instruction for user 
key callers. In either case, control is passed to a 
bootstrap routine in IGC018 (part of csect IECOSCRI1) to 
a a branch to the POINT routine in 24-bit addressing 
mode. 


@ If this is not a FIND request, BLDL obtains the next name in 
the parameter list to be matched, and continues the search. 


@ When the input parameter list has been completed, the 
routine returns control to the caller passing a return code 
in register 15. 


Convert Relative-to-Full Address Routine——Entry Point: 

IECPCNVT: Conversion routine IECPCNVT accepts, in register 0, 
relative addresses of the form TTRN for direct-access devices | 
and presents the corresponding full device addresses of the form 

MBBCCHHR at the location shown by register 2. This routine's 

external interface is documented in System-Data Administration. 


The routine operates as follows: 


e For each extent, the routine reduces the amount, TT, by the 
number of tracks in the extent. When the balance is 
negative, the proper extent has been reached. 


e It determines the full device address for the specified 
relative value. 


Convert Full-to-Relative Address Routine-—Entry Point: 
IECPRLTV: Conversion routine IECPRLTV accepts, from the 
location shown by register 2, a full device address of the form 
MBBCCHHR for direct-access devices and presents the 
corresponding relative address of the form TTRO in register 0. 


The routine totals the number of tracks per extent for the (M-1) 
extents. For extent M, it adds the number of tracks entered 
into the extent. This routine's external interface is 


documented in System-Data Administration. 


Convert Record Number to Sector Value Routine-—Entry Point: 
IECOSCRI: Conversion routine IECOSCR1 converts the record 
number for a fixed- or variable-length record data set to a 
sector value for use on an RPS device. 


Note: For callers of this routine in 3l-bit addressing mode, 
the +0 and +8 offsets into this routine have been changed to +16 


and +20 respectively. 
For fixed-length records, register 0 contains a data length in S 
the two high-order bytes and a key length in the third byte. 
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The fourth byte contains the record number for which the sector 
value is desired. 

For variable-length records, register 0 contains the number of 
key and data bytes already written in the two high-order bytes. 
The third byte contains a 1] (for Keyed records) or a 0 ( for 
nonkeyed records). The fourth byte contains the record number 
for which the sector value is desired. 


For both types of records, registers 2, 14, and 15 contain the 
following: 


Register 2 The high-order byte contains the UCBt+19. The other 
3 bytes contain the address at which the sector 
value is stored. 

Register 14 The return address. 

Register 15 The entry point address of this routine. 


Upon completion, the sector value is stored at the designated 
address and registers 0, 9, 10, and 11 are modified. 


Calculate Track Balance or Records per Track Routine—Entry 
Point IECOSCRit12: Within module IGC018, the conversion routine 
IECOSCR1 calculates the new track balance or the number of 
records that can fit on a DASD track. 
The routine input consists of: 
° Device table address 
e Record number 
e Key length 
e Data Length 
e Track balance Coptional) 
Register 2 contains the address of this 12-byte parameter list. 
The routine returns: 
° In register 0, one of the following values: 
= The number of records that will fit on a track 
= The new track balance 
= The largest record that will fit on a track 
° In register 14%, the return address 
e In register 15, the address of IECOSCRI1 
Registers 9, 10, and 11 are work registers used by the routine. 
The conversion routine is invoked via the TRKCALC macro. For 
7 iii el ord arta the TRKCALC macro, see System-Data 


SYNADAF AND SYNADRLS ROUTINES 


See Diagram O for an illustration of the flow of processing 
through SYNADAF routines. 


The SYNADAF routines pass control between modules by use of 


V-type address constants so as to maximize the chances of the 
next module being on the same page. 
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SYNAD Analysis and Format Routine IGCOO06H: This routine is the 
SYNADAF SVC initial load module and the only load module for the 
SYNADRLS SVC. It gets storage for the register save area and 
the message buffer area and transfers control to the secondary 
load for error analysis. For SYNADRLS, it restores the save 
area pointers and frees gotten storage. 


The routine operates as follows: 


e It issues an ESTAE macro instruction to establish a task 
recovery routine CTRR) to intercept abnormal terminations 
while SYNADAF processing is in effect. 


e It tests to determine whether it was entered for SYNADAF or 
SYNADRLS. 


e If entered for SYNADAF: 


_ It issues a GETMAIN macro instruction for a general 
register save area and a message buffer area from 
subpool 0, in the user's Key. 


_ It initializes the message buffer area. 


_ It tests for a valid access method. If not valid, it 
issues an abend. 


= It loads the message CSECT. 


= It sets up the parameter list for transfer of control to 
secondary load routines for further analysis. 


_ For BISAM or QISAM, it tests to determine if the DEB 
compatibility interface (CI) bit is set. If so, and the 
CI SYNADAF routine is provided, it transfers control to 
the SYNADAF routine via a SYNCH macro instruction. It 
returns to the caller when it again receives control. 


= If no CI SYNADAF routine is provided the routine returns 
to the caller. 


_ If the DEB CI bit is not on, it branches to IGC0O206H for 
BISAM and to IGCO306H for QISAM. 


= It branches to IGC0OG406H for BITAM, QTAM, or GAM. 

_ It branches to IGCO506H for EXCP. 

= It branches to IGCO906H for BPAM or BDAM. 

- For BSAM or QSAM, it tests to determine if the DCB CI 
bit is on. If so, and the CI SYNADAF routine is 
provided, it branches to the SYNADAF routine via a SYNCH 
macro instruction. It returns to the caller when it 
again receives control. 


— If the SYNADAF routine is not provided, the routine 
returns to the caller. 


— If the DCB CI bit is not on, it branches to IGC0906H for 
BSAM or QSAM. 


e If entered for SYNADRLS: 
= It restores the caller's save area pointer. 


= It releases the storage gotten for the register save 
area and the message buffer area. 


= It returns to the caller. 
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SYNADAF for BSAM, QSAM, BDAM, EXCP, and BPAM IGCO106H: This 
routine continues the error analysis for EXCP, BDAM, BPAM, BSAM, 
and QSAM and formats the message buffer. It receives control 
from IGC0O506H for EXCP and from IGCO0906H for the access methods. 


The routine operates as follows: 
e It tests to determine if the data set was opened. 
e If the data set was opened: 


a It converts the DCB block count for tape and the IOB 
last seek address for disk storage into printable form. 


= It checks the ECB post codes. 


= If there is a permanent I/0 error, it finds the IOBCSW 
for a unit check condition. 


- If there is a unit check, it transfers control to 
IGCO806H for the 3203 or 3211 Printers and 3800 Printing 
Subsystem and to IGC0706H for all other devices. 


- If there is no unit check, it deletes the message CSECT 
and returns to the caller. 


e If the data set was not opened or if there was no permanent 
I/O error: 


= It examines the post code and formats the message 
accordingly. 


= It deletes the message CSECT and returns to the caller. 
SYNADAF Routine for BDAM and BISAM IGCO206H: This routine 
completes the formatting of the message buffer for BDAM and 
BISAM. 
It operates as follows: 
e For BDAM: 

- It formats the DDNAME. 


= It searches the completion codes of the DECB and stores 
the related message. 


= If there is an IOB, it translates the Seek address into 
printable format. Else, it sets the Seek address field 
of the message buffer to zeros. 
° For BISAM: 


- It searches the completion codes of the DECB and stores 
the related message. 


- It formats the device type and DDNAME and stores them in 
the message buffer. 


e It deletes the message CSECT when formatting for BDAM or 
BISAM is complete. 


e It returns to the caller. 

SYNADAF for QISAM IGCO3O6H: This routine analyzes status and 
sense bytes and formats the condition portion of the message 
buffer, for QISAM. 

The routine operates as follows: 


e It formats the operation type. 
e It tests the ECB post code. 
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e If the 1/70 event is not completed normally, it tests for an 
extent violation or a permanent I/0 error and stores the : 
corresponding error message. ) 


e It analyzes the exceptional condition code and stores the 
error message. 


e It formats the device type, unit ID, Seek address, and 
DDNAME. 


e If there is no pointer to the DCB, it deletes the message 
CSECT and returns to the caller with a return code of 8 in 
register 15. 


e Otherwise, it branches to IGC0406H for completion of the 
formatting. 


SYNADAF ROUTINE FOR TCAM/QISAM IGCOG4GO6GH: This routine continues 
the error analysis for GAM, BTAM, QTAM, QISAM, and TCAM. 


It operates as follows: 

e It receives control from IGCO006H for GAM, BTAM, or QTAM. 

° It formats the access method type and stores "SYNAD ROUTINE 
NOT YET SUPPORTED" in the message buffer and returns to the 
user. 

e It receives control from IGC0306H for QISAM. 

e If the error is not a permanent I/0 error, it searches the 
CSW status bytes and the IOB sense bytes and formats the 
related message text. 

e It receives control from IGC0906H for TCAM. 

e It stores the access method type in the message buffer. ) 

e It checks to determine if the error is a work area overflow 
or an invalid destination. If neither is the cause of the 
error, the routine assumes a sequence error and stores the 
appropriate message text. 

e It formats the operation type. 

e It deletes the message CSECT and returns to the caller. 


SYNADAF SVC IGCO506H: This routine formats the message buffer 
for EXCP. 


The routine operates as follows: 
e It stores the access method type in the message buffer. 


e It obtains the operation code from the CCW and translates it 
into printable form. 


e It validity-checks the UCB. 


e If the UCB is not valid, it deletes the message CSECT and 
returns to the caller with a return code of 8 in register 0. 


e It stores the unit ID in the message buffer. 


e It branches to IGC0106H for further analysis. 
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SYNADAF SVC for OCR Load IGCO606H: This routine completes the 
formatting of the message buffer for OCR devices. IGC0606H 
receives control from IGCO906H. 


It operates as follows: 


e It translates the CCW operation code into printable form and 
stores it in the message buffer. 


e It formats the DDNAME and stores it in the message buffer. 


@ It checks for the ECB completion code and stores it in the 
message buffer. 


e It searches the IOBCSW status bytes and the IOB sense bytes 
and formats the appropriate text. 


e The sense byte settings for the OCR are device-dependent so 
the routine increases the pointer to the appropriate message 
text and then stores the pointer in the message buffer. 

e It deletes the message CSECT and returns to the caller. 

SYNADAF Unit Check Analysis IGCO706H: This routine analyzes the 

ION sense bytes on a unit check condition for direct access; 

magnetic tape, and unit record devices, except for the 3203 or 

3211 printers and 3800 Printing Subsystem. It receives control 

from IGCO1LO6H and formats the message buffer and sets blanks in 

the work area. 

It operates as follows: 

e It scans the IQB sense bytes for error indications. 


e It analyzes IOB sense bytes 0 and 1 and stores the 
corresponding error message in the message buffer. 


e If there is a write-inhibit condition for a 3330 device, it 
stores the write-inhibit message text. 


e If the unit record device type is a TCR (tape cartridge 
reader), the routine reanalyzes the sense bytes and stores 
the appropriate message text. 

e It deletes the message CSECT and returns to the caller. 

SYNADAF Unit Check Analysis IGCO806H: This routine analyzes the 

IOQB sense bytes on unit check conditions for 3203, 3211, 3262 

model 5, 4245, 4248 printers and 3800 Printing Subsystem. 


IGCO806H receives control through a branch from IGCO106H ona 
unit check condition. 


It operates as follows: 
e It scans the IOB sense bytes for error indications. 


e If the IOB sense bytes do not have the status indicator, it 
sets the message text to "unknown condition." 


e It stores the appropriate message for the IOB sense bytes. 


e It deletes the message CSECT and returns control to the 
caller. 


SYNADAF Error Analysis IGC0906H: This module continues the 
generalized analysis of errors for BDAM, QSAM, BPAM, BSAM, and 
TCAM dummy data sets. 

IGCO906F receives contro. through a branch from IGCOO06H. 

It operates as follows: 


e For BDAM: 


LY26-3967-0 © Copyright IBM Corp. 1977,1985 Method of Operation 167 


Contains Restricted Materials of IBM 
Licensed Materials -—- Property of IBM 


= If the DECB does not contain an IOB address, the routine 
transfers control to IGC0206H for completion of the 
message buffer formatting. | } 


- If the DECB contains an IOB address, the routine formats 
the unit ID, device type, and operation type and 
branches to IGCO106H for further analysis. 


e For BSAM, QSAM, and BPAM 


- It checks to determine if the device is an OCR. If so, 
it branches to IGCO606H. 


= It formats the operation type, unit ID, and device type. 
- It branches to IGCO1LO6H for further analysis. 
e For TCAM dummy data sets, it branches to IGCOG06H. 


| SETPRT, SETDEV AND IMGLIB ROUTINES 


When an SVC 81 CSETPRT or SETDEV) or SVC 105 CIMGLIB) 
instruction is issued, the executors associated with SETPRT, 
SETDEV, and IMGLIB receive control. Figure 33 on page 170 shows 
the flow of control among these executors. 


When an SVC 81 instruction is issued for an IBM 3800 Printing 
Subsystem, IGCO008A is the initial executor to receive control. 
Executors IGG08110, IGGC8111, IGG08112, IGG08113, IGG08114%, and 
IGG08115 are then given control, depending on the contents of 
the SETPRT parameter list. 


When an SVC 81 instruction is issued for a printer that is not 
an IBM 3800 Printing Subsystem, IGCO0O08A is the initial executor 
to receive control. Then, either executor IGG08105 for image 
table processing printers, or IGG08101 and IGG08102 in 
combination for nonimage table processing printers, may receive 
control from IGCO008A. The executors process the UCS request 
and perform image verification if required. Control may then be 
passed from IGC0Q008A, IGG08101, IGG08102, or IGG08105 to 
IGG08103 and IGG08104. Executors IGG08103 and IGG08104, 
respectively, locate the FCB image and load it into the 
printer's forms control buffer. Executor IGG08104 performs 
image verification or allows form alignment. 


U 


When a SETPRT is issued for a SYSOUT data set, executor IGCO008A 
gives control to executor IGG08117. 


SETPRT is also issued during OPEN processing. When SETPRT is 
called by OPEN and the device is a printer other than a 3800 

Printing Subsystem, SETPRT ensures that a UCS image and, for 

devices that have it, an FCB is or has been specified. 


All messages issued by the SETPRT executors are in a message 
CSECT. The SETPRT executors must extract the text from the 
CSECT before issuing the message. If the user's key is greater 
than or equals 8, the SYNCH macro instruction is used for all 
WTO/WTORsS for integrity reasons, because the message text is 
moved to the user's work area. 


Two executors are associated with the SETDEV macro instruction. 
The SETPRT executor, IGCOQ008A, receives control when the SVC 81 
instruction is issued. Executor IGG08108 receives control from 
executor. IGCOOO08A to initialize the IBM 3890 Document Processor 
Control Unit. 


Executor IGCOOLOE receives control when SVC 105 is issued to 
build or delete the DCB and DEB for a SYS1.IMAGELIB data set. 


2S) 
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SETPRT Routine IGCOOO08A: The macro instruction SETPRT 
(set-printer) expands into an SVC 81 instruction that causes 
this routine to be loaded and to gain control. IGCOQO8A 
determines if the IBM 3890 Document Processor control unit is to 
be loaded and, if so, gives control to routine IGG08108. If the 
IBM 3800 Printing Subsystem is to be set up, control is given to 
IGG08110. If a SYSOUT data set is requested, control is given 
to routine IGG08117. 
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The SETPRT routine operates as follows: 


It issues an ESTAE macro instruction to establish a TRR, 
IGCT1081, to intercept abnormal terminations. 


It saves information in the SVRB extended save area for 
IGCT1081, in case the SETPRT ESTAE gets control. 


It contains a bootstrap routine that gets control from RIM; 

issues a LOAD macro instruction, followed by a DELETE macro 

instruction, for IGCT1081 (to get the entry point address of 
IGCT1081 in LPA); and branches to that module. 


It issues a LOAD macro instruction for message CSECT 
CIGGMSGO1). 


It tests the DCB for a SYSOUT data set open for output and 
bypasses unit record processing. 


If the 3890 Document Processor control unit is to be loaded, 
it passes control to routine IGG08108. 


It uses the GETMAIN macro instruction to obtain two work 
areas. 


1. Key 5, subpool 230, for BLDL parameter list, a general 
work area. 


2. User key, subpool 230, another general work area. (See 
"SETPRT Work Area™ in the "Data Areas" section. ) 


It sets up various fields in the work areas for subsequent 
loads of SETPRT. 


Vihen EXCP is specified in the DCB, or if OPEN is the caller 
of SETPRT, it builds an IOB in the user key work area. 


When QSAM is specified for the DCB, the routine causes all 
outstanding output requests to quiesce. 


If it is for a SYSOUT data set, control passes to routine 
IGG08117. 


It uses the EXCP macro instruction to execute block data 
check or reset block data check according to the 
specification in the SETPRT parameter list if any. If 
neither is specified, block data check is executed. 


If OPTCD=FOLD or UNFOLD is specified, an EXCP is issued to 
set the mode. 


It issues SVC 105 to open SYS1.IMAGELIB. 


If the device is a 3800 Printing Subsystem, control is given 
to executor I1GG08110. 


When UCS image processing is required, it passes control to 
either executor IGG08101 for non-image table processing 
printers, or IGG08105 for image table processing printers. 


If FCB processing iS required but UCS processing is not, 
routine IGG08103 is called. 


If no UCS or FCB processing is required, it frees the work 
area and returns to the caller with a return code in 
register 15. For a description of the return codes, see 


Data Administration: Macro Instruction Reference. 
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SETPRT Routine IGGO8101: Routine IGG08101 is entered from 
routine IGCO008A when the specified UCS image is to be loaded 
from the SYS].IMAGELIB. i 


The routine operates as follows: 


e If OPEN is processing, the operator is requested to specify 
a UCS image name if none is specified and the currently 
loaded UCS image (if any) is not a default image. 


e If OPEN is processing, no UCS image is specified, and the 
currently loaded UCS image, if any, is a default image, then 
the currently loaded image is made the requested UCS image 
in order to force reload of the UCS image and thereby ensure 
its integrity. 


e It uses the BLDL macro instruction to locate the UCS image 
in the SYS1.IMAGELIB. 


e If the UCS image is not in the library, the routine requests 
the operator to specify an alternate UCS image to be loaded. 


l. If the operator cancels the job step, it returns to the 
caller with a nonzero return code in register 15 
Cnon-FCB printers). For FCB printers, it transfers 
control to IGG08103. 


2. If the operator replies "U", the currently loaded image 
is used. 


e If an error occurs during BLDL processing, it returns 
control to the caller with a nonzero return code in register 
15 (non-FCB printers). For FCB printers, it transfers 
control to IGG08103. 


e When the UCS image is in the library, the routine uses the 


LOAD macro instruction to retrieve the UCS image from the 
library. easid 
e Before returning to the caller, it issues a DELETE macro 


instructions for the message CSECT and for the UCS image, if 
it was loaded. It also frees the work areas and issues a 
CLOSE macro instruction for SYS1.IMAGELIB. 


e The routine passes control to routine IGG08102 to load the 
retrieved UCS image into the UCS buffer. 


SETPRT Routine IGG08102: Routine IGG08102 is entered from 
routine IGG08101 to load the UCS image into the UCS buffer and 
to print verification lines if required. 


The routine operates as follows: 


@ It uses the EXCP macro instruction to load the UCS image 
into the UCS buffer. 


e If an error occurs during UCS load, it returns control to 
the caller, with a nonzero return code for non-FCB printers. 
For FCB printers, it transfers control to IGG08103. 


e Before returning to the caller when an error condition 
exists, it issues DELETE macro instructions for the message 
CSECT and for the UCS image, if it was loaded. It also 
frees the work areas and issues a CLOSE macro instruction 
for SYS1.IMAGELIB. 


e When verification of the image is required, the routine uses 
the EXCP macro instruction to print the UCS image for 
verification. 


e If an error persists during verification, it returns control 
to the caller with a nonzero return code in register 15 
(non-FCB printers). For FCB printers, it transfers control 
to IGG08103. 
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It gets the local lock and updates the UCB to reflect the 
new image. It then releases the local lock. 


It uses the DELETE macro instruction to release the UCS 
image. If no FCB processing is required, FREEMAIN macro 
instructions release the work areas, a DELETE macro 
instruction releases the message CSECT, and control is 
eens tas to the caller. IGCO0Q08A, IGG08101, IGG08102, or 
IGG08105. 


The routine operates as follows: 


- If the UCS return code indicates a possible lost data 
condition or, if OPEN is processing and an error 
occurred during UCS processing, no FCB processing is 
performed. 


_ It checks the DCB exit list to see whether the specified 
FCB image is defined in the problem program. 


_ It uses the BLDL macro instruction to locate the FCB 
image in SYS1.IMAGELIB if the image is not specified in 
an exit list. 


- For the IBM 4248 Printer, the executor attempts to 
locate the FCB using the prefix FCB4 (Ca 4248 format 
FCB). If that FCB cannot be located, an attempt is made 
Ie aa the FCB using the prefix FCB2 (a 3211 format 


= If an error occurs during BLDL processing, it is 
remembered and control is given to IGG08104 with an 
indicator set that no FCB is to be loaded. 


= If the image is not found in the library, the routine 
requests the operator to specify an alternate FCB image. 


— If the operator cancels the job step, it is 
remembered and control is given to IGG08104 with an 
indicator set that no FCB is to be loaded. 


— If the operator replies "U", the currently loaded 
image is used. 


IGG08104 is called to load the image into the forms 
control buffer and print a verification, if requested. 


SETPRT Routine IGG08104: Routine I1GG08104 loads the FCB image 
into the forms control buffer and verifies the load and/or 
allows forms alignment. It is entered from IGG08103. 


The routine operates as follows: 


If the FCB is found in an exit list or if OPEN is 
tire aba a temporary copy of the requested FCB is 
created. 


If COPYP and/or PSPEED is specified in the SETPRT parameter 
list, if the FCB is found in an exit list, or if OPEN is 
processing, a temporary copy of the requested FCB is 
created. Any COPYP and PSPEED specifications are then 
copied into the temporary FCB. 


The FCB is loaded into the device. 
If an error occurs loading the FCB, a message to the 


eer eree. is issued and a return code and a reason code are 
set. 
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e If VERIFY is specified, the image is printed for visual 
verification. 
e If an I/O error occurs during verification (other than a 


possible lost data condition), control is returned to the 
caller. If a possible lost data condition is detected, the 
verification display is restarted up to 5 times before the 
condition is considered permanent. Control is returned to 
the caller with a nonzero return code in register 15. 


e If ALIGN is specified, the operator is instructed to align 
the forms. 


e It assues a DELETE macro instruction for the message CSECT 
and for the FCB image, if it was loaded from SYS1.IMAGELIB. 
It also issues a CLOSE macro instruction for SYS1.IMAGELIB 
and frees the work area gotten by IGCOOO8A. 


e The routine always exits to the caller. 


SETPRT Executor IGG08105: Executor IGG08105 receives control 
from IGCO008A and performs processing for image table printers. 


The executor operates as follows: 


e Processing continues if one of the following conditions is 
met: 


1. OPEN 1s processing and either a nondefault or no UCS 
image-id has been previously specified. In this case, 
the operator is requested to specify an image-id. The 
operator can reply with the id of an image to be used, 
and, optionally, fold and/or verify. The operator can 
also cancel the UCS request, or may reply ™"U™ to 
indicate the currently mounted band is to be used. 


2. A UCS image is requested and: 
ise It is not satisfied by the currently mounted band. 
= UCS verification is requested. 


= The fold/unfold mdde differs from that previously 
set. 


e The appropriate image table is located in SYS1.IMAGELIB and 
loaded into storage. The image table provides: 


— The correspondence between the UCS image-id (alias) and 
the printer band-id. 


= An indication as to whether the image is a default 
image. 


= A band description to be displayed as part of the 
verification display. 


= Optionally, the number and length of verification lines 
in the verification display. 


e Whether initially requested, or specified by the operator, 
the name of the image to be used (alias) is searched for in 
the image table. If it is not found, the operator is asked 
to specify an alternate image-id. The operator can reply 
with the id of an image to be used, and, optionally, fold 
and/or verify. The operator can also cancel the UCS request 
or may reply "U" to indicate the currently mounted band is 
to be used. 


e When the name of the image to be used is found in the image 
table, the operator is instructed to mount the appropriate 
band if it is not already mounted. If the printer is an IBM 
4245, the image of the band to be mounted is also contained 
in the operator display. 
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After mounting the appropriate band, the operator indicates 
it is mounted by replying to the mount message with the same 
image-id the operator was instructed to mount. 
Alternatively, the operator can reply with the id of an 
image to be used, and, optionally, fold and/or verify. The 
operator can also cancel the UCS request or may reply "U™ to 
indicate that the currently mounted band is to be used. 


e When the operator indicates the correct band is mounted, the 
appropriate mode is set (fold or unfold). 


e If the UCS image is to be verified, the following is 
performed: 


- If the printer is a 4248, the horizontal copy feature is 
deactivated. 


= The UCS verification display 18S produced. This display 
consists of a header line followed, optionally, by lines 
displaying the currently loaded image. 


= If the printer is a 4248, the horizontal copy feature is 
reactivated. 


= The operator is asked to verify the image by replying 
either: 


— VERIFY (the image is correct). 
— CANCEL (the image is not correct). 
— RETRY (the UCS verification display is given again). 


a If UCS processing is successful, the UCB UCS extension 
is updated to reflect the current image-id and mode. 


e The image table is deleted. 
e A freemain is issued for the work area. 
e Executor IGG08103 is called. 


SETDEV Routine IGG08108: IBM 3890 Document Processor routine. 
IGG08108 receives control from routine IGCOOO8A. 


The routine operates as follows: 

e It verifies the SETDEV parameter list. 
e It loads the appropriate control unit. 
e It exits to the problem program. 


SETPRT Executor IGG08110 (For the 3800 Printing Subsystem 

only): Executor I1GG08110 is entered from executor IGC0008A when 
the UCB device type indicates that SETPRT processing is being 
done for a 3800 Printing Subsystem. 


The executor operates as follows: 


e It builds a SETPRT path table according to the format and 
content of the SETPRT parameter list. The path table is 
used to control the sequence of execution for subsequent 
3800 Printing Subsystem SETPRT executors. 


e When printer initialization is requested, IGG08110 uses the 
EXCP macro to issue the channel command sequence that resets 
the controls for the 3800 Printing Subsystem. 


e It issues the LOAD macro to load the requested character 


arrangement tables residing in SYS1.IMAGELIB Cor at 
addresses provided by the caller). 
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e If an error is detected, it builds a message parameter list 
and calls executor IGG08116, then branches to executor 
IGG08115. Otherwise, it calls the next 3800 Printing 
rhea SETPRT executor specified in the SETPRT path 

able. 


SETPRT Executor IGG08111 (For the 3800 Printing Subsystem 
only): Executor IGG081l11l is entered when character arrangement 
tables are successfully obtained by IGG08110. 


The executor operates as follows: 


e It determines which character sets are needed for the 
character arrangement tables specified in the SETPRT 
parameter list. 


e It reorders the character set positions to be loaded by 
referencing the current IDs as shown in the UCB. This 
minimizes the possibility of reloading previous character 
sets into the 3800 Printing Subsystem. 


e It formats the translate tables, using the character 
arrangement tables. 


e It uses the EXCP macro to load the 3800 Printing Subsystem's 
writable character generation modules CWCGMs) with the 
even-numbered hardware character sets. 


e It issues a BLDL and a LOAD macro to read the odd-numbered 
library character sets into storage. 


e It uses the EXCP macro to load the library character sets 
into the 3800 Printing Subsystem's WCGM storage with a load 
graphic character modification CCW. 


e It issues a DELETE macro to free the storage used for the 
library character sets. 


° If an error is detected, it builds a message parameter list 
and calls executor IGG08116, then branches to executor 
IGG08115. Otherwise, it calls the next 3800 Printing 
le pia SETPRT executor specified in the SETPRT path 

able. 


SETPRT Executor IGGO8ll2 (For the 3800 Printing Subsystem 

only): Executor IGG08112 is entered after successful processing 
by IGG0811l, or when the SETPRI parameter list requires copy 
modification. 


The executor operates as follows: 


e It uses the EXCP macro to select the proper 3800 Printing 
Subsystem's translate table position(s) and to load the 
translate table(€s) into the printer. 


e When graphic modification modules are specified for the 
character arrangement tables, IGG08112 issues the LOAD macro 
to obtain the desired graphic modification modules from 
SYS1.IMAGELIB. 


e It issues EXCP to load the graphic modification records into 
the 3800 Printing Subsystem. 


° It issues a DELETE macro to free the storage used by the 
loaded graphic character modification modules. 


e If a copy modification module Cresiding in SYS1.IMAGELIB) is 
requested, IGG08112 issues LOAD to retrieve it. 


° It uses EXCP to load the 3800 Printing Subsystem with the 
copy modification record. 


e It issues a DELETE macro to free the storage used by the 
loaded graphic character modification modules. 
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e If an error is detected, it builds a message parameter list 
and calls executor IGG08116, then branches to executor 
IGG08115. Otherwise, it calls the next 3800 Printing 
ra kaa SETPRT executor specified in the SETPRT path 

able. 


SETPRT Executor IGG08113 (For the 3800 Printing Subsystem 
only): Executor IGG08113 is entered when forms control buffer 
image processing is required. 


The executor operates as follows: 


e It checks for the specified FCB image identifier using FCB 
entries in the DCB exit list. 


e When the address of the FCB image is not passed to the 
caller and the FCB image cannot be located by the DCB exit 
list, the FCB image is obtained from the SYS1.IMAGELIB data 
set using the LOAD macro. 


e It loads the specified FCB image into the 3800 Printing 
Subsystem. 


e If FCB image verification is requested, IGG08113 formats and 
prints on the 3800 Printing Subsystem a map of the specified 
FCB image. A message, asking for visual verification, is 
sent to the operator. 


e If an error is detected, it builds a message parameter list 
and calls executor IGG08116, then branches to executor 
IGG08115. Otherwise, it calls the next 3800 Printing 
rola SETPRT executor specified in the SETPRT path 

able. 


e If an error is detected, it calls executor IGG08115. 
Otherwise, it calls the next 3800 Printing Subsystem 
executor specified in the SETPRT path table. 


SETPRT Executor IGG08114 (For the 3800 Printing Subsystem 

only}: Executor IGG08114 is entered when the UCB extension 
indicates that the 3800 Printing Subsystem has the 
burster-trimmer-stacker feature installed, or when forms overlay 
processing is requested. 


The executor operates as follows: 


e It verifies that the paper is positioned properly, and 
informs the operator if paper repositioning 1S required. 


e When the FLASH parameter is used, it requests the operator 
to install the requested forms overlay negative. 


e It passes control to executor [GG08115. 


SETPRT Executor IGG08115 (For the 3800 Printing Subsystem 
only): Executor IGG08115 is the last module executed for 3800 
Printing Subsystem SETPRT processing. 


The executor operates as follows: 


e If no errors were detected by previous 3800 Printing 
Subsystem SETPRI executors, IGG08115 initializes the 3800 
Printing Subsystem printer with: the starting copy number, 
the total copies to be printed, and the copies to contain a 
forms overlay image. 


e It resets the translate table index in the 3800 Printing 
Subsystem to the first translate table loaded. 


e It restores the caller's control blocks as required, deletes 
any loaded modules, and frees previously obtained virtual 
storage loaded or acquired by or for SETPRT. 


° It exits to the issuer of the SVC 8l. 
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SETPRT Executor IGG08116: Executor IGG08116 is the error 
message processing routine and is called by the other 3800 
Printing Subsystem SETPRI executors when an error is detected. 


The executor operates as follows: 


It checks the return code and, if an I/O error is indicated, 
it retrieves the opcode of the failing CCW and stores it 
into byte 0 of the reason code. 


It uses the message parameter list passed by the caller in 
the SETPRT work area, and formats the corresponding message 
in a work area buffer. 


If the message suppression bit in the SETPRT parameter list 
is off, it will do the following: 


1. If a SYSOUT error or a previous I/0 error is indicated, 
a WTO to the programmer is issued. 


2. For all other messages, except for a BURST request 
error, an initialize printer CCW is issued to ensure a 
standard setup, and the error message is created on the 
3800 Printing Subsystem. For a BURST request error, the 
setup is left unchanged, and the message is written with 
the current setup for informational purposes. 


3. If a paper jam or cancel Key condition is detected, the 
corresponding message is formatted in the work area 
buffer, and the return and reason codes are updated. 
Because the printer is in a not-ready state, no message 
is written to the 3800 Printing Subsystem. 


If a message feedback area 1S provided by the user program, 
the message text is copied from the work area buffer into 
the user-specified area. 


It returns to the calling program through a BR 14 
instruction. 


SETPRT Executor IGG08117: Executor IGG08117 is entered when the 
DCB indicates that SYSOUT processing is requested. 


The executor operates as follows: 
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It copies the user's SETPRT parameter list into the key 5 
storage in the work area. 


It uses the GETMAIN macro instruction to obtain two Key 5 
work areas for SYSOUT processing. 


= A work area for subsystem interface control blocks, JFCB 
and JFCBE control blocks, and for information saved to 
communicate with the system work area (SWA) manager 
routines. 


= A parameter list for spool file allocation routine. 


It calls the SWA manager to read a copy of the JFCB into the 
work area. 


If a JFCBE exists, it calls the SWA manager to read a copy 
of the JFCBE into the work area. 


It issues an ENQ macro CRET-HAVE) on the TIOT. This will 
serialize SETPRT processing with any concurrent open, close, 
allocation, or unallocation processing against the data set. 


It checks DSABOPCT in the DSAB to ensure that only one DCB 
is open for the data set. 


It calls the CLOSE subsystem interface to notify JES that a 
data set segment is finished. 
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e It updates local copies of the JFCB and JFCBE according to 
information in the SETPRT parameter list. 


e It builds the spool file allocation parameter list and calls 
the scheduler spool file allocation routine CIEFABGSF). 
This will provide JES with new setup requirements, segment 
the data set, and update the JFCB and JFCBE in the SWA. 


e It calls the OPEN subsystem interface to notify JES that a 
new data set segment is to be created. 


e The executor frees up the SETPRI resources before returning 
to caller as follows: 


= It issues a DEQ macro for the TIOT. 
= It deletes the message CSECT CIGGMSGO1). 
= It restores the IOB. 
= It saves return and reason codes in the SVRB. 
a It issues the FREEMAIN macro to: 
— Free the user key SETPRT work area 
— Free the spool file allocation parameter list area 
— Free the SYSOUT work area 
— Free the Key 5 SETPRT work area 


e It places the return and reason codes in registers 15 and 0, 
and returns to the caller. 


e If an error is detected, it builds a message parameter list 
and calls executor IGG08116, then cleans up any existing 
resources before returning to the caller. 


IMGLIB SVC Routine IGCOOLOE: The IMGLIB routine IGCOOLOE builds 
a skeleton DCB and DEB for the SYS1.IMAGELIB data set or deletes 
the DCB and DEB for the SYS1.IMAGELIB data set, depending on the 
parameter passed to it in register 1. The routine is entered 
from the SVC 105 instruction. 


The IMNGLIB macro is issued by OPEN executors and by SETPRT 


routines and can be issued by users. The routine operates as 
follows: 
e It issues an ESTAE macro instruction to establish a TRR, 


IGCTOLOE, to intercept abnormal terminations. 


e It makes a test to determine whether the control blocks for 
IMAGELIB need to be built or deleted. If register l 
contains 0's, a DCB and DEB are built. 


e It uses a GETMAIN macro instruction to obtain a work area 
and then uses a LOCATE macro instruction to determine where 
the IMAGELIB volume is residing. 


e It takes the address of the UCB table from the CVT and 
searches for the corresponding UCB. 


e It uses the OBTAIN macro instruction to read in the format-1 
' DSCB and uses the information read and the UCB address to 
construct a skeleton DCB and DEB for the SYS1.IMAGELIB 
volume. The format-l1 DSCB describes up to three extents. 
The SYS1.IMAGELIB data set can reside on up to 16 extents on 
a permanently resident volume. 


e If there are more than three extents on SYS1.IMAGELIB, the 


format-3 DSCB seek address is obtained from the format-l 
DSCB. It uses the OBTAIN macro to read in the format-3 DSCB 
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and uses the information read and the UCB address to 
construct additional DEB extent descriptions. 


TASK RECOVERY ROUTINES 


Task recovery routines are designed to minimize overhead in the 
execution of the following SVC routines. 


SVC 18 BLDL or FIND 

SVC 2] STOW 

SVC 24 DEVTYPE 

SVC 25 Track Balance, Track Overflow Erase 
SVC 68 SYNADAF/SYNADRLS 

SVC 69 BSP 

SVC 8l SETPRT 

SVC 105 IMGLIB 


Explicit validity checking is not done in SVC routines. 
Instead, the following precautions are taken to ensure system 
integrity: 


e Perform all read and write access to user-owned storage in 
the key of the caller. 


° Issue an EXCP macro instruction on caller-owned control 
blocks in the Key of the caller. 


e Issue a SYNCH macro instruction to reach processing routines 
whose addresses are obtained from the caller's DCB. 


SVC routines do not use storage that can be altered by a problem 
program for sensitive data that specifies the location of 
protected control blocks or the location to which control will 
be passed. Examples are register save areas and XCTL lists. 


A program check occurs when a user error or a deliberate action 
threatens to impair system integrity. To avoid the situation in 
which the user would have to relate a program check in an 
unfamiliar system routine with an error ina problem program, 
each SVC routine has a task recovery routine on its RB level. 

On entry, each SVC routine issues an ESTAE macro instruction to 
establish the task recovery routine that will intercept abnormal 
terminations. 


When a program check occurs, the task recovery routine is given 
control by RIM and performs explicit validity checking on the 
input to the SVC routine to determine if a user input error 
occurred. The task recovery routine can thus provide the caller 
with an error description in terms of the caller's input to the 
SVC routine. 


Alternatively, the task recovery routine can determine that the 
abend was not caused by a user error, but was the result of an 
environmental situation or a system error. In the latter case, 
the error descriptive information can be directed to system data 
sets, rather than to the problem program user. 


Task Recovery Routine IGCT0018 (SVC 18, BLDL or FIND): Module 
IGCT0018 handles abends arising from the issuance of an SVC 18. 


It operates as follows: 

e It analyzes the type of error and either passes it to the 
abend routine unchanged or changes it to its own abend and 
passes it on, or it uses a RETRY routine to change it into a 
user error abend code. 

e If a system error is detected, this routine writes a record 
to SYS1.LOGREC and, if no lower level recovery routine has 
done so, takes a dump to SYS1.DUMP. 


e It cleans up any resources that BLDL acquired. 
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Task Recovery Routine Module IGCTO0021 (SVC 21, STOW): Module 
ter aa analyzes abnormal terminations that result from issuing 
e STOW SVC. 


The module operates as follows: 


e It determines whether user input or system error caused the 
termination. 

e It routes information about the abend to the appropriate 
place. 

e For a user input error, it sends a dump of virtual storage 


to the SYSABEND or the SYSUDUMP file. 


e For a system error, it notifies the problem programmer via a 
WTP message and a system completion code that an error 
occurred that terminated the task. 


e The corresponding diagnostic information 1S written to 
SYS1.DUMP and SYS1.LOGREC. 


e It performs any necessary cleanup. 


e It records its actions when an error is detected and 
analyzed on a lower level, or when a machine check occurred 
and has been processed by the machine check handler. 


Task Recovery Routine IGCTOO2D (SVC 24, DEVTYPE): Module 
IGCTOO2ZD analyzes abnormal terminations that occur as a result 
of issuing the DEVTYPE SVC. 


The module operates as follows: 


e It determines whether user input or system error caused the 
termination. 


e It routes information about the abend to the appropriate 
place. 


e For a user input error, it sends a dump of virtual storage 
to the SYSABEND or the SYSUDUMP file. 


e For a system error, it notifies the problem programmer via a 
WTP message and a system completion code that an error 
occurred that terminated the task. 


° The corresponding diagnostic information is written to 
SYS1.DUMP and SYS1.LOGREC. 


® It performs any necessary cleanup. 


e It records its actions when an error is detected and 
analyzed on a lower level, or when a machine check occurred 
and has been processed by the machine check handler. 


Task Recovery Routine IGCTOO2E (SCV 25, Track Balance, Track 
Overflow Erase): Module IGCTOOZE analyzes abnormal terminations 
that occur as a result of issuing SVC 25. The module operates as 


follows: 

e It determines whether user input or system error caused the 
termination. 

e It routes information about the abend to the appropriate 
place. 

e For a user input error, it sends a dump of virtual storage 


to the SYSABEND or the SYSUDUMP file. 
e For a system error, it notifies the problem programmer via a 


WIP message and a system completion code that an error 
occurred that terminated the task. 
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e The corresponding diagnostic information is written to 
SYS1.DUMP and SYS1.LOGREC. 

° It performs any necessary cleanup. 

e It records its actions when an error is detected and 


analyzed on a lower level, or when a machine check occurred 
and has been processed by the machine check handler. 


Task Recovery Routine IGCTOO6H (SVC 68, SYNADAF/SYNADRLS): 
Module IGCTOO6H determines the type of error that occurred 
during a SYNADAF or SYNADRLS SVC processing. 


The module operates as follows: 


e It requests a retry if SYNADAF attempts to access a control 
block at an invalid or a fetch-protected location. 


° All other error conditions are percolated after the SYNADAF 
save/message area 1s freed. If this routine detects a 
system error, it issues an SDUMP before freeing the area. 


e It consists of the following subroutines: 
Environment Error 


If entered from SYNADAF, it goes to the cleanup routine 
for normal processing. 


Otherwise, it tests for an error during FREEMAIN macro 
instruction processing in SYNADRLS. 


If not, the routine next tests for a user error. 


If the error occurred during FREEMAIN processing, it 
tests for an invalid FREEMAIN. 


If so, a SETRP macro instruction is issued to effect a 
retry. 


The retry routine restores register 13 in the SVRB to 
the address of the attempted FREEMAIN area and returns 
to the user with return code 8 in register 0. 


User Error 


Entered if (1) a program check occurred at the SYNADAF 
level and no subordinate ESTAE macro instructions were 
issued or (2) the environment error routine test 
indicated no FREEMAIN error. 


It tests for a protection exception, request for an 
invalid page, or segment exception. 


If so, it tests to determine if the retry address 
indicates that the control block address supplied by the 
user 1S invalid. If so, abend is invoked. 


Otherwise, the recovery routine attempts to continue 
SYNADAF processing. If the retry register is not set to 
zeros, the retry is performed by zeroing the retry 
register and issuing a SETRP macro instruction to retry 
at the address previously in the retry register. 


If any of the user routine tests fail, the error is 
treated as a SYNADAF failure, it is assumed to be a 
system error, and an SDUMP is invoked. 

SDUMP 


Functions performed are the same as for the user 
routine, with the following exceptions: 
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1. The abend code for the SDUMP header is taken from 
SDWACMPC. 


2. The following additional information is logged: 
 CODE=XXX,RC=NN."” 


3. The WTP message states, "IEC906I POSSIBLE SYSTEM 
ERROR DETECTED BY SYNADAF. SVC DUMP TRIED, RC=NN.® 


4. The abend code is not modified. 
Cleanup 


Records the following information in the LOGREC variable 
area: FLAG, RETRY, EP, USER15, USERO, and USERI. 


SDHAURAL 1s inspected to avoid overlaying information 
already in the variable area, and is updated. 


It deletes the message CSECT, if loaded, and frees the 
save/message area. 


Before issuing the FREEMAIN macro instruction, it 
restores user register 13 from the HSA word of the save 
area being freed. 


It then percolates the abend. 


Task Recovery Routine IGCTO0069 (SVC 69, BSP): Module IGCT0069 
analyzes abnormal terminations that occur as a result of issuing 
the BSP SVC. 


The module operates as follows: 


It determines whether user input or system error caused the 
termination. 


It routes information about the abend to the appropriate 
place. 


For a user input error it sends a dump of virtual storage to 
the SYSABEND or the SYSUDUMP file. 


For a system error, it notifies the problem programmer via a 
WTP message and a system completion code that an error 
occurred that terminated the task. 


The corresponding diagnostic information is written to 
SYS1.DUMP and SYS1.LOGREC. 


It performs any necessary cleanup. 
It records its actions when an error is detected and 


analyzed on a lower level, or when a machine check occurred 
and has been processed by the machine check handler. 


Task Recovery Routine IGCT1081 (SVC 81, SETPRT): Module 
IGCT1081 receives control when the RTM Crecovery termination 
aia detects an abnormal termination during operation of SVC 


The module operates as follows: 


It issues an IGGSTART macro instruction to determine what 
type of processing should be done and to give control for 
error analysis to the appropriate routine. 
It contains the following routines: 

Resource Cleanup Routine 


Releases or restores resources acquired or altered by 
the SETPRT routines. 
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Establishes a second-level ESTAE in case a program check 
occurs during cleanup. 


Exit Routine 
Determines the correct way to exit from this module. 


1. Percolate: If entered for resources cleanup, to 
take an SDUMP, or detection of a system error. 


2. Retry to abend: If an invalid user control block 
was found. 


Uses the SETRP macro instruction to exit. 
User Control Block Error Analysis Routine 
Analyzes user control blocks, using the supervisor 
validity check routine and the DEBCHK routine. Issues a 
GETMAIN macro instruction for a GIF buffer for tracing 
control blocks. 
If an invalid control block is detected, gives control 
to the GTF routine; otherwise, a system error is 
assumed. 
SDUMP Routine 
Issues an SDUMP SVC. 


Builds a WTP (write-to-programmer) message if it 
determines that a system error occurred. 


GTRACE Routine 
Moves selected user control blocks to the GTF buffer. 
Issues a GTRACE macro instruction. 
Frees the GTRACE buffer. 
Write-to-Programmer Routine 
Builds a WIP message, if requested. 
Issues a WTP macro instruction. 
Retry Routine 
Issues an ESTAE 0 Cto disestablish the first level 
ESTAE), restores the user's registers, and issues an 
abend macro instruction. 
Second-Level ESTAE Return Routine 
Provides a return address for the second-level ESTAE. 
Issues an ESTAE 0 to disestablish the ESTAE issued by 
the cleanup routine and then returns to the cleanup 
routine. 
This module also has a second-level ESTAE, which is entered 
if a program check occurs in the first-level ESTAE or if a 
CALL RTM is issued. 
For program checks, it issues a SETRP macro instruction to 
retry back to the second-level ESTAE return routine in the 
first level ESTAE. For a CALL RIM, it takes a system dump, 


issues a WTP macro instruction, and percolates to the 
next-~level ESTAE. 
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Task Recovery Routine IGCTOLOE (SVC 105, IMGLIB): Module 
IGCTOLOE determines the type of error that occurred during, or 
that is related to, the IMGLIB SVC. 


The module operates as follows: 


e It determines if the error type is environmental, user, or 
system. 
e It decides whether to return to the user, with a completion 


code, or to continue the abend. 


GTRACE Record Format Module AMDUSRFE: Module AMDUSRFE formats 
all BSAM, QSAM, BPAM, and BDAM trace records created by the 
GTRACE macro instruction and causes them to be printed by the 
EDIT function of the AMDPRDMP service aid. It receives control 
from the EDIT function and can be used by both ABDUMP/SNAP and 
EDIT to format the user trace records. 


The module operates as follows: 


e When the module receives control, register 1 contains the 
address of a parameter list. It uses the parameter list to 
find the record to be processed, determine how to process 
it, and decide where to put the processed record. 


e It saves the registers in the save area provided by EDIT. 


e It moves the generalized block heading, "BSAM/QSAM/BPAM/BDAM 
TRACE RECORD DDNAME XXXXXXXX ABEND CODE XXX RETURN CODE XxX 
Dee HH.MM.SS.HT®™ into the output buffer area provided by 
EDIT. 


e It returns to EDIT with a return code of 0, which requests 
EDIT to print the output buffer area, clear the output 
buffer area, and return to the format module. 


e The block heading data is derived as follows: 


DDNAME and RETURN CODE are taken from the data portion 
of the input trace record. The RETURN CODE is converted 
from binary code into printable form. 


ABEND CODE is the translation of EID CEVENT ID) from a 
2-byte code into a 3-byte completion code. 


It checks the GTF option word (byte 4, bit 7) to 
determine if the TIME field is present. If the bit is 
off, the TIME field in the block heading is left blank. 
TIME is the local time that the record was put into the 
trace buffer. It is taken from the TIMESTAMP field and 
is converted into printable form. 


e It provides a record heading, followed by data lines, for 
each type of logical record traced. 


e It uses the ID of the traced record to determine what 
logical record is in the input buffer and then moves in the 
appropriate record heading. For example, if the ID 
indicates a DCB record (ID=130), the record heading moved 
suet output buffer is "DATA CONTROL BLOCK AT LOCATION 


e It again passes control to EDIT with a return code of 0. 

e Upon return from EDIT, it sets up the data lines to be 
printed. Each line is moved into a work area for unpacking 
and translation into printable format. 


@ It moves the translated data into the output buffer in sets 
of 8 bytes, followed by 2 blank bytes. 


e It tests for an end of data condition as the buffer is being 
filled. 
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When the end-of-data 1s reached, it restores the registers 
and exits to EDIT with a return code of 4, which requests | 
EDIT to print the contents of the output buffer and obtain 

the next input trace record. 

If it is not an end of data, it passes control to EDIT with 

a return code of 0 to cause the output buffer to be printed 

and control returned to the formatting module. This 

continues until all records in the input area are printed. 
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PROGRAM ORGANIZATION AND FLOW OF CONTROL 





DIAGRAM A: SEQUENTIAL ACCESS METHODS-—OVERVIEW 





















OSAM BSAM BPAM 
GET 

PUT 

PUTX READ Read and Write Routines iene 
i LSE Get and Put Routines WRITE See Diagram C and Figure 18 <a WRITE 
TRUNC 


See Diagram B 
End-of-Block Routines 
Figures 7,9 & 12 


Synchronizing-and-Error- 
Processing Routines 
See Figures 13, 14 










Check Routines 


CHECK E> See Diagram C and Figure 19 2 CHECK 






FREEBUF Buffer-Pool Management 
Routines GETBUF 


GETBUF See Figure 28 'BLDL 






Buffer-Pool Management 
BUILDRCD a. Routines 
See Figure 28 


BSAM Routines 
See Figure 22 
















NOTE . 
BSAM Control Routine 
POINT Eee ‘NOTE 
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= BSP See Figure 20 POINT 
CNTRL . 
QSAM Control Routines ea 
PRTOV See Figures 16 and 17 CNTRL 


SETPRT < } SETPRT 


COMMON ACCESS METHOD ROUTINES 
Open and Close Executors Buffer-Pool Management Routines Appendages 


1/0 
Interruption 
via 























SAM Open Executors 


See Diagram D and Figures 24, 25 


Buffer-Pool Management QSAM and BSAM 

















OPEN Bee BUILD > Routines Supervisor Appendages 
If OPEN macro instruction is issued FREEBUF See Figure 28 See Figure 15 
for a SYSIN or SYSOUT data set, 
see Diagram K. FREEPOOL 

GETBUF 
GETPOOL 
SAM Close Executors 
See Figure 27 
CLOSE 






If CLOSE macro instruction is issued 
for a SYSIN or SYSOUT data set, 
see Diagram L. 
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DIAGRAM B: QSAM GET AND PUT ROUTINES 


List A 


GET 
RELSE [=> Buffer Technique se esa elector 
The GET routines prepare the next record for the ntormation 


program from a block of data obtained from an 
input channel program. The RELSE routines cause 


the present buffer to be scheduled for refilling Simple Buffering — 

by setting an end-of-block condition. Buffers are per- Figure 1 
manently associated Figure 4 

List A can be used to select the appropriate module with one OCB 

selector table for the GET routines. 

Flow of control information for QSAM routines Update Mode — 

is shown in Diagram F. Uses simple buf- 
fering but shares 

If processing is for SYSIN or SYSOUT data sets, the buffer used by Figure 3 


SAM-SI routines are required. See Diagram M. the update mode Figure § 
GET/PUTX routine 

Control blocks used in QSAM are shown in 

the ‘Diagnostic Aids’’ section of this manual. See 

Figure 35, QSAM Control Blocks. 





PUT 
PUTX 
TRUNC Co 


The PUT routines accept records from the program 
and assembie them into a block of data for an out- 
put channel program. A PUTX routine accepts 

an output record from an input data set. 


The TRUNC routines cause the present buffer to 
be scheduled for emptying. 


List A can be used to select the appropriate 
module selector table for the Put routines. 


Flow of control information for QSAM routines 
is shown in Diagram F. 


If processing is for SYSIN or SYSOUT data sets, 
SAM-SI routines are required. See Diagram M. 


Control blocks used in QSAM are shown in the 


“Diagnostic Aids” section of this manual. See 
Figure 35, QSAM Control Blocks. 
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DIAGRAM C: BSAM/BPAM READ/WRITE AND CHECK ROUTINES 





READ/WRITE CD 
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A READ or WRITE routine completes some of the entries in the channel 
program from parameters in the data event control block (DECB). 


The READ/WRITE modules are listed in Figure I6. 


For flow of control information for BSAM/BPAM routines, see Figure 20 and 
Diagram G. 


if processing is for SYSIN or SYSOUT data sets, SAM-SI routines are 
required. See Diagram M. 


Control blocks used in BSAM are shown in the ‘’Diagnastic Aids” section. 
See Figure 36,BSAM Control Blocks. 





The DECB is examined by a CHECK routine to determine the status of 
the channel program. 


The CHECK modules are listed in Figure 17. 


For flow of control information for BSAM/BPAM routines, see Figure 20 and 
Diagram G. 


If processing is for SYSIN or SYSOUT data sets, SAM-SI routines are 
required. See Diagram M. 


Control blocks used in BSAM are shown in the ‘Diagnostic Aids”’ section. 
See Figure 36, BSAM Control Blocks 
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DIAGRAM D: SEQUENTIAL ACCESS METHOD OPEN EXECUTORS 


J 


OPEN SCE Routines (A) 


One of the functions performed by the OPEN 
routines is the merging of control block information. 


During the merge process, OPEN uses the DSORG 
and MACRF fields to determine the type of DCB 
being opened. 


OPEN then places entries in the WTG table for those 
access method executors which are required to 
process the DCB. 


if the OPEN macro instruction is issued for a 
SYSIN or SYSOUT data set, job entry subsystem 
(JES) compatibility interface executors are 
required. See Diagram K. 





SAM Open Executors 


STAGE 1 STAGE 2 STAGE 3 


These executors validity check These executors construct These executors identify and S) 
user-specified parameters, construct input/output blocks (IOBs) load the modules needed to 
data extent blocks (DEBs) and and associated channel programs. perform the processing 
buffer pools and issue a DEBCHK described by the DCB. 
(TYPE=ADD) to maintain the Stage 2 Executors are described 
DEB table. under ‘'Sequential Access Method Stage 3 Executors are described 
Executors.’’ See Figure 23. under ‘‘Sequential Access 
Method Executors.’’ 
See Figure 24. 


Stage 1 Executors are described 
under ‘‘Sequential Access 
Method Executors.’’ See Figure 22. 





Open routines are described in OPEN/CLOSE/EOV Logic. For information on the WTG and XCTL tables, see the 
“Access Method Determination” section of the manual. 


Diagram E shows the flow of control among the three stages of OPEN Executors. 
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DIAGRAM E: STAGE 1—~SAM FLOW OF CONTROL FOR OPEN EXECUTORS 
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DIAGRAM E: STAGE 2—~SAM FLOW OF CONTROL FOR OPEN EXECUTORS 
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DIAGRAM _E: STAGE 3-—~SAM FLOW OF CONTROL FOR OPEN EXECUTORS 
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DIAGR :_ QSAM FLOW OF CONTROL 
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QSAM FLOW OF CONTROL 


Notes for Diagram F 


A synchronizing-and-error-processing routine receives control when another full input buffer is needed or if a new empty 
Output buffer is needed. 


An end-of-block routine receives control when an input buffer is empty or an output buffer is full. 


The end-of-block routine attempts to add the present channel program to the last one in the chain of scheduled channel 
programs. If successful, control returns to the processing program. If unsuccessful, control is passed to the |/O 
supervisor by an EXCP instruction. 


For normal channel-program scheduling, the routine passes control to the |/O supervisor by an EXCP instruction to 
cause scheduling of the buffer. 


Direct-access processing end-of-block modules attempt to add another IOB to the IOB chain. If that is successful, control 
returns to the processing program. If that is not successful, control is passed to the EXCP interface, then to the |/O 
supervisor, by issuing an EX CPVR instruction. 


Depending on the status of the execution, a synchronizing routine may retain control (using the WAIT macro instruction), 
return control to the GET or PUT routine, or pass control to the user's SYNAD routine or to the EOV routine. 


Control is passed to the EOV Routine by using an SVC 55 instruction in the event that an end-of-volume or a permanent 
error condition is detected. Refer to Figure 35, ‘‘QSAM Control Blocks,’’ for a diagram of the relationship of the IOBs to 
the other QSAM control blocks. 


The flow of control is described in Diagram H. 


This routine receives control by being scheduled for execution by abnormal-end appendage |GGO19C3, IGGO19CU. 
IGGO19FR or IGGO19V6. Control is passed to the processing program through the supervisor. 
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DIAGRAM G: 
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BSAM/BPAM FLOW OF CONTROL 
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BSAM/BPAM FLOW OF CONTROL 


Notes for Diagram G 
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A READ or a WRITE routine receives control after a READ or WRITE macro instruction is issued by a processing 
program. 


A READ or WRITE routine partially completes a channel program using parameters from the data event control block 
(DECB), and passes the DECB, together with the Input/Output block (OB), to an end-of-block routine. 


The end-of-block routine attempts to add the present channel program to the last one in the chain of scheduled channel 
programs. If successful, control returns to the processing program. If unsuccessful, control is passed to the |/O 
supervisor by an EX CP instruction. These routines are described in the QSAM portion of the manual. See Figure 7. 


For normal channel program scheduling, the routine passes control to the |/O supervisor by an EX CP instruction to 
cause scheduling of the buffer. The end-of-block routines are described in the QSAM portion of the manual. See Figure 
5. 

Direct-access processing end-of-block modules attempt to add another IOB to the IOB chain. If that is successful, control 
returns to the processing program. If that is not successful. control is passed to the EX CP interface, then to the |/O 
supervisor, by issuing an EX CPVR instruction. 


A CHECK routine receives control from the processing program via a CHECK macro instruction. 


A CHECK routine returns control to the processing program if the channel program executes normally (without errors). 
See Figure 36 BSAM Control Blocks for a diagram of the relationship of the DECB to the other BSAM control blocks. 


The flow of control is described in Diagram I. 


This routine receives control by being scheduled for execution by abnormal-end appendage IGGO19C3, IGGO19CU, 
IGGO19FR or IGGO19V6. Control is passed to the processing program through the supervisor. 
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DIAGRAM H: QSAM FLOW OF CONTROL WITH EOV ROUTINES 
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(See Open/Close/EOV Logic) 
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Synchronizing and Error 
Processing Routines (A) 


Control path (E) for 
end-of-volume condition 


User’s EOV Exit Routine 


E4 
EOV/New Volume Routine ei 


Descriptive information on these routines is located in “Synchronizing and Error Processing Routines.’’ See Figures 11 
and 12. 


See OPEN/CLOSE/EOV Logic. 





The user's SYNAD routine ts described in Data Administration Guide. 
2 
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DIAGRAM I: BSAM FLOW OF CONTROL WITH EOV ROUTINES 
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Descriptive information on the Check routines is located in the ‘Method of Operation’’ section under ‘Basic Sequential 
Access Method Routines."’ See Figure 17. 


See OPEN/CLOSE/EOV Logic. 


The user's SYNAD routine is described in Data Administration Guide. 
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DIAGRAM J: QSAM OPERATION WITH FEOV ROUTIN 
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1,2,3,4,5,6,7,8,9,10,16 


1,2,3,4,8,11,13,15,10,12,13,14 


1,2,3,4,5,6,7,8,11,13,15,10,12,13,14 
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DIAGRAM K: OPEN PROCESSING FOR SAM SUBSYSTEM INTERFACE EXECUTORS 





OPEN C———————))_‘OOPEN Routines (A) 


A request for a SYSIN or SYSOUT data set (*, DATA, or 
SY SOUT specified on the DD statement) follows the 
spooled DCB sequence through the Open routines. 


When a spooled DCB is identified by the Open routines, 
the ID of the first compatibility interface Open executor 
is placed in the WTG table. 





Stage 1 Executors | Stage 3 Executors 
See Figure 22 | See Figure 24 
IGGO199F IGGO199G |GGO199W | IGGO198L 
Builds CICB Constructs an OPEN Determines buffer Loads the required 
list for an ACB requirements | SAM-S! BSAM/QSAM 


Initializes ACB fields 


Sets defaults in DCB 


Issues an OPEN 
(type J) for the ACB 


Initializes the request 
parameter list (B) 


processing routines. 
See Diagram M. 


Updates the DCB 
Verifies DCB fields 





OPEN Routines (A) 


The OPEN routines begin processing this request. 
Follow the sequence through the OPEN routines 
as described for spooled ACB. 


OPEN routines are described in OPEN/CLOSE/EOV Logic. For information on the WTG and XCTL tables, see 
the ‘Access Method Determination’ section of the manual. 


The access method control block (ACB) and the request parameter list (RPL) are described in Data Areas. 
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TAGRA : CLOSE PROCESSING FOR SAM SUBSYSTEM INTERFACE EXECUTORS 
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CLOSE Routines@) 


A request to close a SYSIN or SYSOUT data set follows the 
spooled OCB sequence through the Close routines. 


When a spooled OCB is identified by the CLOSE routines, the 
ID of the compatibility interface CLOSE executor is placed 
in the WTG table. 


IGGO201W = Cli CLOSE Executor 
(see Figure 25) 


Constructs a CLOSE parameter list for the ACB 
Deletes the Cl processing modules 

Restores OCB fields 

Issues a CLOSE macro instruction for the ACB 


Transfers control to next entry in the WTG table 


CLOSE Routines@) 


The CLOSE routines process the request. Follow the 
sequence through the CLOSE routines as described 
for spooled ACB. 





The CLOSE routines are described in OPEN/CLOSE/EOV Logic. 
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DIAGRAM _M: SAM SUBSYSTEM INTERFACE FLOW OF CONTROL FOR SYSIN/SYSOUT DATA SET 
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READ 
WRITE El) I1GGO19DK SAM-SI BSAM Processing 
Module 
CHECK 


READ/WRITE routines (Figure I6) 
(output) User’s SYNAD Routine 


CNTRL CHECK routine (for SYSOUT) (Figure 17) 
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(Figure 17) 
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DIAGRAM _N: FORCE CLOSE PROCESSING 
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DIAGRAM O: SYNADAF FLOW OF PROCESSING 
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IGCO606H IGCO406H 


SYNADAF Input Parameters 


Access ; Reg. Reg. 
Method rece 0 1 
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BPAM 01 — DCB 
BSAM 02 = DCB 
QSAM 03 _ DCB 
BDAM 04 DECB DCB 
BISAM 05 DECB DCB 
QISAM 06 — DCB 
BTAM 07 - - 

QTAM 08 7 - 


09 


*High-order byte, Reg. 15 
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DIRECTORY 
Logic Module 

Module CSECT SVC Manual Desc. 
Name Module Type Name Entry Reference (Page ) 
AMDUSRFE GTRACE format appendage AMDUSRFE 185 
IECBBFB1 Build module IECBBFB1 Figure 26 149 
IECQBFG1 GETPOOL module IECQBFG1 Figure 26 148 
IFGO559C Problem determination module IFG0559C 153 
IGCT0018 Task recovery routine module IGCT0018 180 
IGCTOO02D Task recovery routine module IGCT002D 181 
IGCTOO2E Task recovery routine module IGCTOOZ2E 181 
IGCTO0021 Task recovery routine module IGCT0021 180 
IGCTOO6H Task recovery routine module IGCTOO6H 182 
IGCT0069 Task recovery routine module IGCT0069 183 
IGCTO1OE Task recovery routine module IGCTOI1OE 184 
IGCT1081 Task recovery routine module IGCT1081 183 
IGCO002A STOW module IGCOO002A 21 Figure 20 158 
IGCO002D DEVTYPE module IGco002D 24 181 
IGCOOO0Z2E Control module IGCOOO02ZE 25 181 
IGCOOO06H SYNADAF module IGCOOO06H 68 Diagram 0 182 
IGCO006I Control module IGCOO06I 69 157 
IGCOO008A SETPRT routine IGCOOO08A 81 Figure 33 168 
IGCOO1OE IMGLIB routine IGCOOLOE 105 Figure 33 184 
IGCOOLOE IMGLIB executor ICGOO1LOE 105 184 
IGCO106H SYNADAF module IGCO106H Diagram 0 164 
IGCO206H SYNADAF module IGCO206H Diagram 0 165 
IGCO306H SYNADAF module IGCO306H Diagram 0 165 
IGCOGO6H SYNADAF module IGCO406H Diagram O 166 
IGCO506H SYNADAF module IGC0O506H Diagram O 166 
IGCO606H SYNADAF module IGC0606H Diagram O 166 
IGCO706H SYNADAF module IGC0706H Diagram O 167 
IGCO806H SYNADAF module IGCO806H Diagram 0 167 
IGCO906H SYNADAF module IGCO906H Diagram 0 167 
IGC018 Resident module IGC018 18 Figure 20 161 

IECPCNVT 161 

IECPRLTV 161 

IECOSCRI 161 
IGGO19AA GET module IGGO19AA Figure l 7 
IGGO19AB GET module IGGO19AB Figure l 7 
IGGO19AC GET module IGGO1L9AC Figure l 8 
IGGO1L9AD GET module IGGO1L9AD Figure l 9 
IGGO1L9AE GET module IGGO1LOAE Figure 3 21 
IGGO1LOAF Synchronizing module IGGO1LOAF Figure ll 61 
IGGO19AG GET module IGGO19AG Figure l 10 
IGGO19AH Error-processing module IGGO19AH Figure 12, Diagram M 66 
IGGO19AI PUT module IGGO1LIJAI Figure 4 28 
IGGO1OAJS PUT module IGGOLOAJ Figure 4 29 
IGGO1O9AK PUT module IGGO19OAK Figure 4 29 
IGGO1LO9AL PUT module IGGOLSAL Figure 4 30 
IGGO19AM GET module IGGO19AM Figure 1,2 10 
IGGO19AN GET module IGGO19AN Figure 1,2 1l 
IGGO19AQ Synchronizing module IGGO19AQ Figure 11, Diagram M 63 
IGGO19AR Synchronizing module IGGOLOAR Figure ll 64 
IGGO1L9AV DD Dummy IGGOLOAV 117 
IGGOL9AX Save module IGGO19AX Figure 5,7,9 G6 
IGGO1LOBA READ/WRITE module IGGO1OBA Figure 16 99 
IGGO19BB CHECK module IGGOLOBB Figure 17, Diagram M_ 107 
IGGO19BD Control module IGGO1OBD Figure 18 111 
IGGOLOBE Control module IGGO1LOBE Figure 18 112 
IGGO19BH READ/WRITE module IGGO19BH Figure 16 99 
IGGO19BI CHECK module IGGO1LOBI Figure 17 108 
IGGOL9BK Control module IGGOLOBK Figure 18 113 
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Logic Module 

Module CSECT SVC Manual Desc. 
Name Module Type Name Entry Reference (Page) 
IGGO19BL Control module IGGO1LOBL Figure 18 115 
IGGO19BN GET Update module IGGO19BN Figure 3 22 
IGGO19BO GET module IGG019B0 Figure l 13 
IGGO19BP PUT module IGGO19OBP Figure 6 31 
IGGO19BQ Synchronizing module IGGO19BQ Figure ll 64 
IGGO19BR WRITE module IGGO1OBR Figure 16 100 
IGGO19BS CHECK module IGGO19BS Figure 17 109 
IGGO19BT Channel end appendage IGGO1LOBT Figure 13 82 
IGGO19BU READ module IGGO19BU Figure 16 101 
IGGO1OBX SI0O/pagefix appendage IGGO19BX Figure 13 76 
IGGO1LOBY SI0/pagefix appendage IGGO1OBY Figure 13 76 
IGGO19BZ Channel end and abend IGG019BZ Figure 13 88 

appendage 
IGGO019BO0 BUILDRCD routine IGGO19B0 Figure 26 150 
IGGO19CA Control module IGGO19CA Figure 14,18 95 
IGGO19CB Control module IGGO19CB Figure 14,18 96 
IGGO19CC EOB module IGGO19CC Figure 5 40 
IGGO19CE EOB module IGGO19CE Figure 5 41 
IGGO19CF EOB module IGGO19CF Figure 5 43 
IGGO19CI Ch-~-end and ab-end appendage IGGO19Cl Figure 13 82 
IGGO19CJ Ch-end and ab-end appendage IGGO19CJ Figure 13 83 
IGGO19CL SIO appendage IGGO19CL Figure 13 72 
IGGO19CT EOB module IGGO19CT Figure 5,9 GG 
IGGO19CU Appendage IGGO19CU Figure 13 83 
IGGO19CW EOB module IGGO1IOCN Figure 7 50 
IGGO19CX EOB module IGGO19CX Figure 7 51 
IGGO19CY EOB module IGGO1ICY Figure 7 52 
IGGO19DA WRITE module IGGO19DA Figure 16 102 
IGGO19DB WRITE module IGGO19DB Figure 16 102 
IGGO19DC CHECK module IGGO19DC Figure 17 109 
IGGO1ODD WRITE module IGGOLODD Figure 16 103 
IGGO19DJ GET module IGGO1ODJ Figure 1, Diagram M 33 

PUT module Figure 4 33 
IGGO19DK READ/WRITE module IGGO19DK Figure 16, Diagram M_ 109 

CHECK module Figure 17 109 
IGGO19EI Ch-end and ab-end appendage IGGOLIEI Figure 13 85 
IGGO19EJ Ch-end and ab-end appendage IGGOLIJES Figure 13 87 
IGGO1OFA Control module IGGO19FA Figure 14,18 96 
IGGO19FB GET module IGGO19FB Figure l 16 
IGGO19FD GET module IGGO1LOFD Figure l 17 
IGGO1OFF GET module IGGOLOFF Figure l 18 
IGGO19FG PUT module IGG019FG Figure 4 35 
IGGO1OFJ PUT module IGGO19OFJ Figure 4 36 
IGGO19FK EOB module IGGO1LOFK Figure 5 GG 
IGGO1LOFL PUT module IGGOLOFL Figure 4 37 
IGGO1O9FQ EOB module IGGO19FQ Figure 5 GG 
IGGO19FR Abnormal-end appendage IGGO1LOFR Figure 13 94 
IGGO19FS Asyne error module IGGO19FS Figure 12 67 
IGGO19FU EOB module IGGO19FU Figure 5 G6 
IGGO19JD Parallel input module IGGO19JD 19 
IGGO19TC EOB module IGGO1IOTC Figure 5 G6 
IGGO1OTV EOB module IGGO1LOTV Figure 9 55 
IGGO1O9TW EOB module IGGO19OTW Figure 7 53 
IGGO019T2 EOB module IGG019T2 Figure 9 57 
IGGO19V6 Appendage IGGO19V6 Figure 13 94 
IGGO191A Stage 1 OPEN executor IGGO19OLA Figure 22, Diagram E 120 
IGGO191B Stage 1 OPEN executor IGG0191B Figure 22, Diagram E 121 
IGGO191C Stage 1 OPEN executor IGGO191C Figure 22, Diagram E 122 
IGGO191G Stage 2 OPEN executor IGG0191G Figure 23, Diagram E 130 
IGGO0191I Stage 1 OPEN executor IGG0191I Figure 22, Diagram E 122 
IGGO191L Stage 2 OPEN executor IGGOL9OILL Figure 23, Diagram E 130 
IGGOLOIM Stage 2 OPEN executor IGG0191M Figure 23, Diagram E 13]l 
IGGO19IN Stage 1 OPEN executor IGGO19I1N Figure 22, Diagram E 123 
IGGO191Q Stage 2 OPEN executor IGG0191Q Figure 23, Diagram E 13l 
IGGO191IR Stage 2 OPEN executor IGGO191R Figure 23, Diagram E 132 
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Module 
Name 


IGGO191Y 
IGG01910 
IGG01911 
IGG01913 
IGG01915 
IGG01916 
IGGO0193B 
IGG0193I1 
IGGO196A 
IGG0196B 
IGG0196I1 
IGG0196K 
IGG0196Q 
IGG01965 
IGGO197L 
IGG0197M 
IGGO197N 
IGG0197P 
IGG0197Q 
IGG0197V 
IGGO198L 
IGGO199F 
IGG0199G 
IGGO199L 
IGGO199W 
IGGO20FC 
IGGO20T1 


IGGO201A 
IGG0201B 
IGGO201P 
IGGO201R 
IGGO201W 
IGG0201X 
IGGO0201Y 
IGG02012Z 
IGGO21AB 
IGGO210A 
1GG08101 
IGG08102 
1GG08103 
IGG08104 
IGG08105 
1GG08108 
IGG08110 
1GG08111 
IGG08112 
1GG08113 
1GG08114 
IGG08115 
IGG08116 
1GG08117 
IGXMSGO01 
IGX00030 
IGX00031 
IGX00032 


Module Type 


Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 
Stage 1 


NWANANNNNAH ARN DBR RDNA 


OPEN 
OPEN 
OPEN 


& 3 OPEN executor 


OPEN 


executor 
executor 
executor 
executor 
executor 
executor 


executor 
executor 
executor 
executor 
executor 
executor 


executor 
executor 
executor 
executor 
executor 
executor 
executor 
executor 
executor 
executor 
executor 


SAM-SI 


Force 


Close executor 


SAM/PAM/DAM force CLOSE 


execut 
CLOSE 
CLOSE 
CLOSE 
CLOSE 
CLOSE 
CLOSE 
CLOSE 
CLOSE 
STOW m 
STOW m 
SETPRT 
SETPRT 
SETPRT 
SETPRT 
SETPRT 
SETDEV 
SETPRT 
SETPRT 
SETPRT 
SETPRT 
SETPRT 
SETPRT 
SETPRT 
SETPRT 


or 
executor 
executor 
executor 
executor 
executor 
executor 
executor 
executor 
odule 
odule 
routine 
routine 
routine 
routine 
routine 
routine 


executor 
executor 
executor 
executor 
executor 
executor 
executor 
executor 


MSGDISP message text 


MSGDIS 


P module 


SYNCDEV module 
NOTE/POINT module 


1 


CSECT 
Name 


IGG0191Y 
IGG01910 
IGG01911 
IGG01913 
IGG01915 
IGG01916 


IGG01931 
IGGO196A 
IGG0196B 
IGG01961 
IGG0196K 
IGG0196Q 
IGG0196S 
IGG0197L 
IGG0197M 
IGGO197N 
IGG0197P 
IGG0197Q 
IGG0197V 
IGGO198L 
IGGO199F 
IGG0199G 
IGGO199L 
IGG0199W 
IGGO20FC 
IGGO020T1 


IGGO201A 
IGG0201B 
IGG0201P 
IGGO201R 
IGGO201WN 
IGGO201X 
IGGO0201Y 
IGG02012 
IGGO21AB 
IGGO210A 
IGG08101 
1GG08102 
1GG08103 
IGG08104 
IGG08105 
IGG08108 
IGG08110 
IGG08111 
IGG08112 
IGG08113 
IGG08114 
IGG08115 
1GG08116 
1GG08117 
IGXMSGO1 
IGX00030 
IGX00031 
IGX00032 
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svc 
Entry 


109 
109 
109 


Logic 
Manual 


Reference 


Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 


Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 


Diagram N 
Diagram N 


Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 
Figure 


Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 
Diagram 


Diagram 
Diagram 
Diagram 
Diagram 
Diagram 


Diagram 
Diags E, 
Diags E, 
Diagram 
Diags E, 


See ACF/TCAM Diagnosis Guide and ACF/TCAM Diagnosis 


Reference. 


The modules of OPEN, 


CLOSE, 


Am MMM em men 


E 
E 
E 
E 
E 
K 
K 
K 
E 
K 





Module 
Desc. 
(Page) 


123 
136 
137 
138 
138 


STOW and SYNADAF are link~edited 


into SYS1.LPALIB during system generation, 
according to the following list. E 
module in the distribution library 


IGGO191A, 


alias for the load module. 
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ach 


For 


by macro SCIECGDI, 
CSECT is a separate 

and in microfiche. 
IGG01911, and IGG0201Z, each CSECT name is also an 
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Load module 
IGGOLISILA 


IGG02012Z 
IGCO002A 
IGCO006H 


IGGO1911 


IGG0193B 
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CSECTsS 


IGGO19IA, 
IGGO0193I, 


IGGO2ZO01A, 
IGCOO002A, 


IGCOO06H, 
IGCO506H, 


IGGO191C, 
IGG01911, 


IGGO19IBK, 
IGG019T2, 


1977,1985 


IGGO191B, 
IGG0196A, 


IGGO201B, 
IGGO21lAB, 


IGCO106H, 
IGC0606H, 


IGG0191G, 
IGG01913, 


IGGO19BX, 
IGGO193B 


IGGO1911, 
IGGO196B, 


IGGO201xX, 
IGG0210A 


IGCO206H, 
IGCO706H, 


IGG0191Q, 
IGG01915, 


IGGO19BY, 


IGGO19IN, 
IGG0196I, 


IGGO201Y, 


IGCO306H, 
IGCO806H, 


IGGO191R, 
IGG01916, 


IGGO19BZ, 


IGGO19LY, 


IGG0201Z 


IGCO406H, 
IGCO906H 


IGG01910, 
IGG0196K 


IGGOL9ITV, 


Directory 209 
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DATA_AREAS 


2 


IOB EXTENSION (USED WITH SAM EXCPVR )——IGGIOBEX 


Offset Length Name Description 

IOBSEEK+8 

GOCX'28"') 24 IOBCCSV Channel-program area 

GOCX'28') 8 IOBCCWl ecu channel command word 

GOCX'28') 1 IOBCCWN10 Command code 

G1CX*29') 3 IOBCCW1A Address 

G4OX'2C') 1 IOBCCW1F Flags 

G5OCX'2D') 1 Unused 

G6CX'2E") 2 IOBCCWIL Data length 

G8CX'30') 8 IOBCCW2 eeaue channel command word 
C 3 

G8(X'30') 81 IOBCCN20 Command code 

GOCX'31') 3 IOBCCW2A Address 

520X'34') 1 IOBCCW2F Flags 

530X'35') 1 Unused 

540X"'36"') 2 IOBCCW2L Data length 

G8CX'30") 8 IOBCNT Count field, in the form 
CCHHRKDD 

G8CX'30"') 5 IOBCNTCH CCHHR: a 5-byte argument used by 
SEARCH CCWs 

G8CX'30") 2 IOBCNTCC CC: cylinder value 

50(X*'32') 2 IOBCNTHH HH: track value 

520X"*34") 1 IOBCNTR R: record number 

530X"35") 3 IOBCNTKD KDD part of the count field 

530X'35'") 1 IOBCNTK K: length of the record's key 
area 

54(X'36"') 2 IOBCNTIDD DD: length of the record's data 
area 

56(X"'38"') O IOBCCWND' End of the CCW chain 

56CX*38") 8 IOBTRKOV Track overflow area 

560X"*38') 2 IOBLFST Length of the first segment 

560X"'38") 1 IOBSECTO Sector value 

570X*39"') 1 Reserved 

58CX'3A") 1 IOBNINCL Number of segments in the first 
segment's cylinder 

59OCX*SB') 1 IOBNMID Number of track capacity middle 
segments 

60CX*3C") 2 IOBLMID Data length of track capacity 
middle segments 

62°0X'3E") 2 IOBLLST Data length of the last 
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segment——this is zero if there 
is only one segment. 
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SEQUENTIAL ACCESS METHOD BLOCK-~IGGSAMB 


Pa VeTTED -pa cob 
Dea % Fhe 
wen 

Dim « TAY 


(Aas ktTuP 


oe pratrr 
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The SAMB is used to control the 
reside on direct access storage 


Offset 
OCX*O') 


= 00 Oo 00 OO DE © © 
NAAR RR ARRAN 
PN KOK OOK OOK OK OK OK OK 


104(X"68") 
108¢€X'6C*) 
108¢€X'6C') 
1O09(X'6D*) 
112¢X*70') 
1130X*71") 
114¢€X'72') 
114¢0X'72") 
175(X*AF*) 


176CX*BO!) 
177(X*B1*) 


178(X"B2") 


Length 


oar Lids 
rE ae ere is 

ay 
11.1 


m5) 


8 
1 
3 
4 
0 
7 
8 
4 
4 
6 
4 
4 
4G 
4 
4 
4 
4 
4 
1 
3 
1 
1 
0 
6 
1 


ae 
1 


. = 


ae 
1 


SAMBXXX 
SAMAXBUF 


SAMAXIDA 
SAMINIDA 
SAMINBUF 


SAMPRFIX 
SAMPSUB 
SAMPLENG 


SAMB 
SAMIOB 


SAMICQL 
SAMRQEA 
SAMCNTA 
SAMCCWA 
SAMI DAWA 
SAMPGFXA 


SAMIOBP 
SAMPSTWD 
SAMPSTCD 


SAMSMFCT 
SAMSEGCT 
SAMCCWC 
SAMCCWCT 
SAMOPNID 
SAMOPNIN 
SAMOPNOT 
SAMOPNUP 
SAMOPNTO 
SAMOPNOTI 
SAMKEY 
SAMFLAG1 
SAMFOUND 
SAMERROR 
SAMFIX 
SAMFREE 
SAMRST 


SAMPUTX 
SAMBSWR 


SAMERIGN 
SAMFLAG2 
SAMACT 
SAMSTIO 


SAMVRDEV 
SAMSKSVD 


SAMEOE 
SAMSEGMT 


1977,1985 


accessing of data sets that 
devices. 


Description 


SAMB prefix 

30 maximum number of buffers 
that can be scheduled per SIO 
122 maximum number of IDAWS in 
SAMB 

32 minimum number of IDAWS in 
SAMB 

13 minimum number of buffers 
that may determine SAMB size 
Prefix for ee 

Subpool of SAM 

Length of the CAMB + SAMB prefix 
Unused 


IOB for use by EXCPVR 
IOB PREFIX 


EBCDIC *SAMB* 

IOB 

Length of ICQE and IOBS 

PTR to RQE 

PTR to next available count area 
PTR to next available real CCW 
PTR to next available IDAW 
PTR to next available PGFIX 
entry 

Previously posted IOB 

Post code word 

Post code 

Remainder of post code word 
SMF count 

Segment count 

CCW count for each segment 
Same as SAMCCWC 

Open type indicator 

l open for input 

2 open for output 

3 open for update 

G4 open for TRK overflow output 

5 open for OUTIN or INOUT 

User key 

Flag byte one 

X*80" something found 

X*G0* dynamic error bit 

X'*20' a page fix 1s needed 

X'10" a page free is needed 

X*08" the CHAN PROG has been 

broken 

X'04" this is a PUTX request 

ae this is a BSAM update WRT 
E 

X*'*01" ignore SAMERROR 


X'80" a request is active 

X'40" SIO is to ignore this 
request 

X'20" virtual device 

X*10" IOBSEEK saved in SAMSKSAV 
for VBS LRI update 

X'08* EOE processing has 
occurred 

X°04* Segmenting of a VBS LRI 
record 1s occurring 
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Offset Length Name Description ) 
-l1. SAMRPS X*02" RPS device 


-l1 SAMCLRTM X‘01*° PAGEFIX appendage issued 
CALLRTM-SIO take ignore exit 
SAMFLAG3 


SAMPSTNX X*80" next IOB POST41-UNIT 
exception 
-l.. ....  #SAMSCHPR xX'*'4G40O*" search previous 
.-l. .... SAMRDSK X'*20" read skip needed 
-l .... SAMSMF X*10" call SMF for EXCP count 

wees Le... SAMLRE X'08" device supports ECKD 
L80CX"BG') 1 SAMFLGSV Save area for SAMFLAG3 when 
LS1CX"B5") ; 


179CX*B3") : 


SAMSEGMT is on 
SAMOFLGS Flag byte two set by open 
SAMUPD X'80" Update open 


~-l.. 2.2... SAMNCHK X*4G0" WRIT validity check 
wel. «2... SAMTRKO X'20" track overflow 
lL .... SAMVEQR X*10" V=R region 
-. 1... SAMONE X*'08" only one buffer acquired 


-l.. SAMBFTKR X‘'04" BFTEK=R option requested 


182(X"B6") 1 SAMFRRFG SAM FRR flags 
1. 


ws «ee. SAMCV X*80" SAMPGFXS is valid 
thee «een “SAMIP eal FRR must process PAGEFIX 
lis 
el. ...- #SAMFFIP X'20" free/fix in process 
et ...-. SAMFRIP X'10" free in process 
.- Ll... SAMFIIP X'08' fix in process 


-l.. SAMTOUCH xX‘'04! validity checking buffer 

-l1. SAMCPCK X'02" buffer address 
INVALID-CH.PGM check will be 
mapped as channel protection 
check 


L83C(X"B7') 1 SAMSPECT Write special count 

L84CX"B&') 1 SAMRTNOF Return offset from appendages 

L85CX"BI') 3 SAMRESV1 Reserved 

188C(X"*BC') G SAMPFECB ECB for page fix request 

188CX"BC") 1 SAMPFECC ECB condition code 

189C(X"BD') 3 SAMPECBB 

192CX'*CO") | SAMODEBA Old DEB address for QSAM VBS LRI 
multivolume update 

L9O6GCX*CG") G SAMFRRPT Address of a 6-word parameter 
area returned from SETFRR 

ZO0CX'C8') G SAMREAL a to get real address of 

204(X'CC*) 1 SAMSEEKS Dual use seek area 

2Z04CX*CC*) 8 SAMSEEK SAMSEEK MBBCCHHR 

204CX*CC*) 1 SAMSEEKM SAMSEEK M 

Z205CX'CD') 2 SAMSEKBB SAMSEEK BB 

2O7CX'CF) 5 SAMCNT SAMCNT CCHHR 

2ZO7CX'CF*) 5 SAMCCHHR CCHHR for both 

2O07CX'CF') 4 SAMCCHH CCHH for both 

211¢X'D3'") 1 SAMR R field for both 

2120X'D4") 3 SAMCTKDD SAMCNT KDD 

212CX'DG") 1 SAMCTKEY SAMCNT Key 

213CX'D5") 2 SAMCTDD SAMCNT DD 

215(€X'D7") 1 SAMSECT Sector value for RPS 

216CX'D8") 8 SAMSKSAV Saved IOBSEEK if SAMSKSVD=ON 

224CX"ED') 8 

224C(X"EO') 80 SAMPGFX Space for 10 PFGIX list entries 

304¢€X'130')80 SAMPGFXS Space for 10 PGFIX list entries 

384(X'180')120 SAMSAV Work area (compiler) 

50GCX'1F8"')G SAMLRPTR Address of current locate work 
area 

508(X"1FC*)G48 SAMLRPRM Space for 3 locate record 
parameter lists 

556CX'22C'")4 SAMCCPTR Address of SAMCCW (follows and 


contiguous to SAMTIC2) 
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Offset 
560(X'230')4 
564(0X*'234')4 
568(X'238')4 


5720X*23C')4 
576(0X'240')8 
576(X*240')8 
576(X'240')1 
577OCX*t241°)3 
5800X*'244'")1 
5810X"245')1 
5820X'246')2 
5820X"'246')1 
583CX'247')]1 
5840X'248')8 
584(0X'248")1 
5850X'249'D3 
588(X'24C')1 
589CX'24D")3 
592(X*'250')8 
592€X'250')8 
592€X'250')1 
5930X'251')D3 
596(X'254')4 
600(X*258')8 
600C€X'258!')1 
6010X'259')3 
6040X*25C')4 


Length 


19S 


260 


Name 

SAMCTPTR 
SAMIDPTR 
SAMIEPTR 


SAMPROLG 


SAMSSF 


SAMSSC 
SAMSECT2 


SAMSID 

SAMSIDO 
SAMSIDA 
SAMSIDF 


SAMLRCCW 
SAMTIC1 

SAMTIC10 
SAMTICIA 


SAMTIC2 
SAMTIC20 
SAMTIC2A 





Description 


Address of SAMCNTS ¢€ follows and 
contiguous to SAMCCW) 
Address of SAMIDAW (Cfollows and 
contiguous to SAMCNTS) 
Address of SAMIDAND (follows and 
contiguous to SAMIDAW) 
Reserved 
CHAN PROG prolog 
Set sector CCW 
Command code 
DDR 


Flags 


Count 
Special sector value 


Search ID CCW 
Command code 

IOBSEEK ADDR 

Flags 


Locate record CCW 
TIC CCW 

Command code 

TIC address 
Filler 

TIC CCW 

Command code 

TIC address 
Filler 


SAMCCW is pointed to by SAMCCPTR. 
SAMCCW follows and is contiguous to SAMTIC2. 





Offset 


Length 


608CX'260") LL*8 


Name 
SAMCCW 


Description 


Space for CCWS for up to 
SAMAXBUF buffers 


SAMCNTS is pointed to by SAMCTPTR. 
SAMCNTS follows and is contiguous to SAMCCW. 


offset 
OcX'O') 


OCX'O') 0 
OCX'0") 4 


G(X"G") 4 


B8CX'8") 


Length 
MMX¥8 


MM-1 
¥*8 


Name 
SAMCNTS 


SAMCCWND 
SAMRFLST 


SAMRFLRD 


Description 


Space for up to SAMAXBUFt1 count 
fields 

End of SAMCCW 

Start of refill channel program 
for update 

ADDR of read data or read CT, 
read data, or read data skip, 
read count, read data 

Space for up to SAMAXBUF count 
fields 


SAMIDAW is pointed to by SAMIDPTR. 
SAMIDAW follows and is contiguous to SAMCNTS. 
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Offset 


Length 
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Name Description 
SAMI DAW Space for SAMINIDA to SAMAXIDA 


OCX'0") 
OCX'0") 


0 
NN34 


IDAWS 
IDAWS 


SAMIDAND is pointed to by SAMIEPTR. 


SAMIDAND follows and is contiguous to SAMIDAN. 


Offset 


Length 


Description 


OCX*0") 


0 


SAMIDAND 


End of SAMIDAW 


Offset 
OCX"O") 


GOX*G") 
8(X"8") 

12(X'C") 
12(X'C") 


230X"17") 
24(X*18") 


240X'18") 
250X*19") 
27(X'"1B") 
29CX"1D") 
S1CX*1F*) 
S20X*20') 


MESSAGE CSECT-—-IGGMSG 


The message CSECT contains messages for SAM, 
1s divided into two parts. 


INTERRUPT CONTROL QUEVE ELEMENT-—~IGGICQE 


Length 


XxX XXXX 


SEARO AQ Cm eee DW: SSeS B=) 


Name 
ICQECB 


ICQIOBAD 
ICQFIRST 
ICQENDA 
ICQFLG 
ICQEXND 


ICQENDAD 
ICQFSTQ 
TICQMAXQ 
ICQNOQ 
ICQSAVQ 


ICQSAVCT 


ICQSVCTM 
ICQSVCTB 
ICQSVCTC 
ICQSVCTH 
ICQSVCTR 
ICQSAV 


The first part is the index; 


Description 


The ECB pointed to by the IOB 
contained in the SAMB 

Address of the IOB in the SAMB 
Address of the first user IOB 
Address of the last user IOB 
Flag byte: 

EXCPVR processing is needed 
Reserved 

Address of the last user IOB 
Address of first queued IOB 
Maximum number of ee on queues 
Current number on que 

Area for EOV to save TCQMAXQ 
Reserved 

Save area for the MBBCCHHR used 
in module IGGO019T2: 

M value 

BB value 

CC value 

HH value 

R value 

Save area for end-of-block 
Processing (EOB) 


PAM, and DAM. It 
the 


second part contains the message. 


Offset 


Index 


OCX'O") 
2X2") 


Length 


2 
2 


MSGINDLN 
MSGINDOF 


Description 


Length of index 
Offset to message entry for 


first message 
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Offset 
Index 


G(OX"G") 


n(n) 


There are two forms of the message entry, 


Length 
2 
2 


no-variable. 


Name 


MSGIND2 


MSGINDn 


Message Entry—Variable 


Offset 
Index 


OCX'0") 
1CX*1*) 
20X*2") 


3SCX'3!") 
n(n) 
nt+1Cnt1) 


Length 
1 
1 
1 


Name 
MSGOFF 
MSGLNG 
MSGOFF1 


MSGOFF2 
MSGOFFn 
MSGTXT 


Description 


Offset to message entry for 
second message 

Offset to message entry for nth 
message 


with variables and 


Description 


Offset to message from beginning 
of entry 

Length of message -l (to allow 
use in execution of a move) 
Offset to first variable filled 
in by the routine that extracts 
the message and causes it to be 
printed 

Offset to second variable 
Offset to nth variable 

Message text 


No-variable messages such as those used in SYNADAF 


Offset 
Index 


OCX'0") 
1¢X*1") 


SETPRT WORK AREA (SPW)-"IGGSPW 
The SETPRT work area is used by the SETPRI executors, 


Length 


1 
1 


Name 


MSGLNGF 
MSGTXTF 


Description 


Length of message text 
Message text 


and is 


located (when the SETPRT executors are in control) at the 


address contained in register 4 (which is in user-key virtual 
storage). 


Offset Length Name Description 
OCX'O!) 1 SPHOPTSA Save area for the opcode byte 
1CX*1?*) 1 SPNPARM1 Saved reply flags 
20X*2') 1 SPWFLG1 Reply flags: 
1... ...- SPWVRFCB Verify FCB 
xXXX XXXX Reserved 
Ch ius et SPWALIGN Align forms 
3CX'3!') 1 SPWFLAG2 Module entry indicator 
GOX'G!") 1 SPWFLAG3 Flags: 
-l.. ..-. SPWLDREQ UCS/FCB load required 
.--l ..-. SPW1Z20RQ Message IEC120 is required 
xX.xX. XXXX Reserved 
5CX'5") wee ee ee SPNFLGG Flag byte: 
1... ....- SPWFCBDE FCB image is loaded and must be 
deleted 
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a 
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Name 
SPWECPAM 


SPWFLG8& 

SPWRETRY 
SPWVREND 
SPWNOMOV 
SPWFCBOP 


SPWRTRYC 


Description 

EXCP DCB with access method J 
section is present 

Reserved 

Flag byte: 

Retry in progress 

Last verify line is printing 

Do not move requested message 
Fill FCBOP as well as FCBID into 
the UCB 

Reserved 

Retry counter 


WTOR Prefix, Message Section, and Reply Area~—~in User Key 


Offset Length 


Name 


Description 


8CX'8!) 8 
B8CX'8") 4 
8CX*8!) 1 
9CX*9") 3 
12CX'C*) 4 
16(X'10') 80 
l16CX'10') 64 
80(X'50') 16 
8O0CX'50"') 1 
810X511") 315 


96(0X'60') 
100¢€X'64'") 


4 
4 
104(X'68") 8 
104(X'68"') 8 
4 

4 

4G 


108(X*"6C') 
108¢€X'6C*) 


SPWMSGHD 
SPWRPLYA 
SPWMSGLB 
SPWRPLYB 
SPWECBPA 
SPNMSGAR 
SPHMSGTX 
SPWREPLY 


SPWFCBOR 
SPWREPC1 
SPWRPECB 
SPWREPID 


SPWFCBIM 
SPHWUCSIM 
SPHPREFX 
SPWNUCS2H 
SPWFCB2H 


Header section for message area 
Data about the reply area 
Length of the reply area 
Address of the reply area 
Address of the reply ECB 

SPW message area 

Message text 

Operator reply 

Reserved 

Start of operator reply 


Reply ECB for the WTOR 
UCS/FCB ID supplied by the 
operator reply 

Name of the FCB image 

Name of the UCS image 
First half of name 

Last 4 bytes of UCS name 


2 


Last 4 bytes of FCB name 


IOB for EXCP Users and OPEN-—in User Key 


Offset Length 


Name 


Description 


112€X*70") 40 


SPWIOB 


IOB area 


Information saved from user's IOB 


Offset Length 


Name 


Description 


152€X"98") 4 
156CX"9C") 4 
160CX"A0") 4 
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SPWFLGSV 
SPWTRSV 
SPWECBSV 


IOB first word save area 
IOBSTART save area 
IOB ECB pointer save area 
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Channel Program Area—in User Key 


Offset Length Name Description 
L168(X"*AO') 8 SPWNCCW1 First CCW 
176(X"A8') 8 SPWNCCN2 Second CCW 


184(X"BO") 8 SPNCCWS Third CCW 


Work Area for Unpacking Line Numbers-~in User Key 


Offset Length Name Description 

188CX"B8"') SPWUNPKA Unpack area 

19O0CX"BC') 2 Unused bytes 

192CX"BE') 2 SPNLNENQ Used by CONVERT instruction 


General Work Area~~in User Key 


Offset Length Name Description 

196(X"*CO") G SPWFFSB Sense bytes 0-3 from the 3800 
Printing Subsystem 

Z2O0CX*CG') G SPWMSGID Message ID for DOM 

2OGCX'C8") 64 SPNUBLDL BLDL parameter list for user 
image library 

208CX"*CC*) 60 SPNULOAD LOAD parameter list for user 


image library 


BLDL Work Area—SPW5 


The BLDL work area is used by the SETPRT executors and is 
located (when the SETPRT executors are in control) at the 
aooree? contained in register 8. The BLDL work area is in 
key 


Offset Length Name Description 
OCcX'O') 64 SPNBLDLA BLDL list area 
OCX'"0') 4 SPNBLDLC Count and length fields 
GOX'G") 8 SPNHDDNAM DD name for SYSOUT request 
SPWBLNAM BLDL name field 
7OX#*7") 1 SPHFCBQ FCB name qualifier 
SPWUCSQ UCS image name qualifier 
8CX'8") 4 SPNBLFCB Load module ID for BLDL 
12CX'C') 52 Reserved 
64(X"'G0") G SPWNKADR Address of the SETPRT work area 


Cin user key) 
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Message Area for the SETPRT Work AreaKey 5 


Offset 
680(X"44") 


760X'4C*) 


176(X"BO") 
180(X*B4") 


Length 
8 


100 


4G 
8 


Name 


SPWMSGHS 
SPWMLIST 


SPWMSGA 
SPWMTXT 
SPWMRECB 
SPWIMAGE 


Description 


Header section for message area: 
Error message parameter list for 
IGG08116 

SPW message area 

Message buffer for IGG08116 
Reply ECB for WTOR 

Name of the image requested 


3800 Printing Subsystem Area for the SETPRT Work Area-—Key 5 


Offset 

188CX*BC') 
192CX'CO!) 
196(X'C4!") 


198CX'C6") 
200CX*C8") 


204(X*CC*) 
204CX'CC*) 


2O5(X*CD*) 


208(X*D0") 


209(X"D1') 


2100X" D2") 


218 MVS/XA’ SAM Logic 


Length 
4G 
4G 


ANN 


NN 


Name 
SPWSPRB 
SPWSOADD 


SPWBADDR 
SPWSOLEN 


SPNTWAD1 


SPWUCSIT 
SPWADFCB 
SPHLPTR 

SPWTWLNI 


SPWTHILNI 
SPWFLAG1 
SWPT 3800 


SPWFCBUA 
SPWENDXL 
SPWEXFLD 
SPWEXWPR 
SPWENDM 

SPWEFCBP 
SPWM128L 
SPHFLAG2 
SPWRVMSG 


SPHVMHD 

SPWVMCH 

SPWBLIOB 
SPWM163L 
SPWNM164L 
SPWNSTOR 
SPWNESOI 


SPWFLAGS 
SPWPLCPY 


SPWIMGLD 
SPWOPNPR 
SPWDELRQ 
SPWGRAFO 
SPWGRAF1 
SPWGRAF2 


Description 


Address of the SVRB extended 
save area 

Address of the SYSOUT work area 
for I1GG08117 

Buffer pointer 

Length of the SYSOUT work area 
Reserved 

Address of the translate table 
work area 

UCS image table pointer 

FCB address 

FCB line pointer 

Translate table work area 
subpool number 

Translate table work area length 
Flag byte l1: 

The SETPRT is for a 3800 
Printing Subsystem 

The FCB is in the user area 

End of DCB exit list 

EXCP for FCB load 

EXCP for writing FCB verify 

End of section in message area 
End of FCB verify printout 
Message IEC128D in message area 
Flag byte 2: 

Reissue verify message to 3800 
Printing Subsystem 

Header section in mesSage area 
'Channel' is in message area 
Build a dummy I0B 

Message IEC163A is being issued 
Message IEC164A is being issued 
SPHN has been stored 

Not enough space is available to 
open SYS1.IMAGELIB 

Flag byte 3: 

The SETPRT parameter list has 
been copied from the user's area 
to the key 5 work area 

Image loaded into storage 

OPEN is processing 

Delete is required 

WCGH 0 has been GCM modified 
WCGM 1 has been GCM modified 
WCGM 2 has been GCM modified 
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Offset 


211(X'D3") 1 
Tice 
nee 


Length 


oak 


0 0 eK KKKK 


212(0X'D4") 
212(0X'D4") 
2130X'D5') 
214(0X'D6") 
215(0X'D7*) 
216(X'D8') 
216(0X'D8") 
217(X'D9') 
218¢CX'DA') 
219(X'DB!') 
220(X*DC') 


224(X*EO') 
226(X'E2') 
228 0X"E4") 
2320X'E8") 
234(X'EA*) 
Z235(X"EB") 
236(X"EC') 


237(X*ED") 
2358(X"EE") 
239(X'EF*) 
240CX'FO") 


2420X'F2") 


243(X'F3") 
244(X"FG") 


248CX'F8") 
252CX'FC') 


NB Be FAN RFK BERK FRR NDNDY De RR eae eee 2 


2920X'124! 
2960X'128! 
297(0X'129! 
298(X*12A' 


ee Nee ee” Ne 
RRR DN DOD HR Hee 


e ] a a e a e a 
~ XK XXX 


299CX'12B')1 
S00CX'12C')4 
304¢X"'130')12 
316(€X'13C')60 
376€X'178"')72 
4498 (X'1C0')8 
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SPHGRAF3 
SPWFLAG4 
SPWRPERR 
SPWNCHKLD 


SPWNLFCB 


SPWRSNCD 
SPWRSNO 
SPWRSNI 
SPHRSN2 
SPNRSN3 
SPWRETCD 
SPWRETO 
SPWRET1 
SWPRET2 
SPWRET3 
SPWIOBST 


SPWLNCNT 
SPWFCBIL 
SPNCAVTA 
SPWNKBTS 
SPWI 
SPWJ 
SPWK 


SPWL 
SPWM 
SPHINN 
SPWP 
SPWLPISV 
SPWMAX 


SPHTCBKY 
SPWWCGMS 
SPHIQREC 
SPWCGMID 


Description 


WCGM 3 has been GCM modified 
Flag byte 4: 

Operator reply error 

EXCP routine to check for 
possible lost data 

No FCB load is required 
Reserved 

Reason code 

Byte 0 of the reason code 

Byte 1 of the reason code 

Byte 2 of the reason code 

Byte 3 of the reason code 
Return code 

Byte 0 of the return code 

Byte 1 of the return code 

Byte 2 of the return code 

Byte 3 of the return code 
Address of the IOB standard 
section 

FCB image line counter 

Length of the FCB image 
Address of the caller's AVT 
Work bytes used to test flags 
Total number of translate tables 
Translate table index 

Index of the CGM in the 
translate tables 

Work index 

Index in the CGM record 

Index in the CGM record 
Translate table position index 
Saved previous lines lpi 
Number of CGMs installed on the 
printer 

TCB key 

Load WCGM data 

Execute control data 

Character set IDs 


SPWMEXITCnFive 4-byte areas that contain 


SPWMEIND 
SPWERIND 
SPHWRXIND 


SPWAPPOS 
SPWPLENG 


SPWADDCB 
SPWADDEB 
SPWADIOB 


SPWADUCB 
SPWCFHIT 
SPWNCFB 
SPWFCBO 
SPWCPYPS 
SPWPSPDS 


SPWTADDR 
SPWSAVE 


SPHWRSAVE 
SWPFLINU 


1977,1985 


the SETPRT modules’ exit list 
addresses 

Index for module exit list 
Error index for module exit list 
Retransmit index for module exit 
list 

Available print positions 
Length of the SETPRT parameter 
list 

Reserved 

Address of the caller's DCB 
Address of the caller's DEB 
Address of the IOB prefix 
section 

Address of the UCB 

FCB half-inch counter 

FCB current index for verify 
FCB options 

COPYP specified 

PSPEED specified 

Reserved 

Reserved 

Temporary FCB address 

Reserved 

SETPRT register save area 
Compiler register save area 
FCB image line number 
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Offset Length Name Description 
G4560X'1C8") 56 SPWSPP Copy of the user SETPRT 
parameter list 
5120€X'200'")1 SPHUKSN Subpool number of work area in 
user key 
513CX'201')3 SPHWUKLTH Length of user key work area 
516(0X'204')1 SPWK5SN eg as number of work area in 
ey 
5170X'205')3 SPNK5LTH Length of key 5 work area 
520¢€X'208')20 SPHMODWK Compiler work area for autodata 


Error Message Communication Area-User-Provided Area 


The error message feedback area 
SETPRT and is pointed to by the 


(SPPEMSGA). 
Offset Length 
OCX'O') 2 
2(X'2") 2 
GOX"4G") 2 
60CX'6!') 2 
8CX'"8!) 2 
LOCX'A!) % 


SVRB Extended Save Area~~Key 0 


Name 


SPWMCLEN 
SPWSV02 
SPWRSV04 
SPWTXTL 
SPWRSV08 
SPWTXT 


The SVRB extended save area is 


Offset Length 


OCX'0') 
QCX"4") 


8CX"8") 


12CX'C*) 
13CX*D") 


Hee FO FN 


XXX 
14CX"E*®) 
I5CX'F*) 
16¢€X'10°) 
20(X*14") 


24(X'18'") 
28CX*1C*) 
S20X*20') 
320X*20") 


OO = IN I EN EN bt ete tl lt 


220 MVS/XA SAM Logic 


Name 


SPRMSG 
SPRIDCBA 


SPREXIT 
SPRREG13 
SPRKEY 
SPRINDIC 
SPRCNTRL 
SPRTRCNS 
SPRUSLIB 
SPRSYSOT 


SPRNIOBS 


SPRBLDLA 
SPRIOBSV 


SPRDCBBG 
SPRGETMN 
SPRELIST 
SPRTRACE 


1s provided by the caller of 
SETPRT parameter list field 


Description 


Total length of area 


Reserved 
Reserved 


Length of text returned 


Reserved 


Formatted text (variable length) 


Description 


used by the SETPRT ESTAE routine. 


Address of the message CSECT 
Address of the image library 


data set's DCB 
Exit prolog 


Save area for register 13 


User key 


Flag byte: 


Control block routine entered 


GETMAIN unsuccessful 


User-specified image library 
SETPRT for SYSOUT data set 


Unused 


Number of IOBs 


Unused 


Address of the BLDL list 
Address of the IOB altered by 


IGCOOO8A 


Beginning address of the DCB 
Address of the GTRACE buffer 


ESTAE list 
GTRACE list 
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3800 Printing Subsystem Translate Table Entry~Key 5 


One Entry of an FCB 


Offset 
OCcxX'O') 


OCX'O') 
OCX'O') 
GCX'G") 
6CX'6") 


B8CX'8") 
BCX'8B") 


Length 
288 


NO AQ £00 


280 
256 


264(X'108')24 
264€X'108' 8 


272€X'110')16 


Name 


SPWTT 


SPWTTHDR 
SPWTTID 


SPWNXLAT 
SPWTRANS 
SPWTRAIL 
SPWTRL1 


SPWGRAF Cn) 


Description 


Translate table, pointed to by 
SPNTWAD1 Cin the SETPRT Work 
Area) 

Translate table header 
Translate table ID 

Reserved 

Length of character arrangement 
table 

Translate table and trailer 

256 byte translate table 
Trailer 

Four 2-byte entries for 
character set identifier and 
loading order 

Four 4-byte entries for graphic 
character modification module 
names 


Image for a 3800 Printing Subsystem 


Offset 
OCX*O') 


BUFFER POOL CONTROL BLOCK~~IGGBCB 


LY26-3967-0 © Copyright IBM Corp. 


Offset 
OCX'0') 
OCX'O') 


1(X"1") 
G(X"G") 


Length Name 
l SPWFCBIE 
00... 
..nn SPWFCBLP 
.00 
..01 
.10 
ae ceed 
»-e.e ANNN 
Length Name 
4 BCBBUFPT 
l 
3 BCBBUFAD 
l BCBFLGS 
\ ee BCBLRI 
-l.. .... BCBEXTND 
oo MK KKKK 
1 BCBBUFNO 
2 BCBBUFSZ 
4 BCBLRIAR 
l 
3 BCBLRIAD 
4 BCBPAD 
1977,1985 


Description 


FCB byte for 3800 Printing 
Subsystem 

Reserved—set to zeros 
Lines-per-inch bits 

6 lines per inch 

8 lines per inch 

10 lines per inch (Model 3) 
l2 lines per inch 

Channel number 1 to 12, in 
hexadecimal code 


Description 


Address of the first buffer 
(same as BCBBUFAD below) 

Filler 

Address of first buffer 

Flag byte 

Logical record interface present 
BUFCB extended area present 
Reserved 

Number of buffers 

Size of each buffer 

Address of logical record area 
(same as BCBLRIAD below) 

Filler 

Address of logical record area 
Padding for doubleword alignment 


Data Areas 22] 


Offset 


Length 


Se iia 
adore 
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Name 


BCBNLN 
BCBEXLN 


Description 


Length of normal BCB 

Length of extension (add to 
BCBNLN to get total length if 
BCB iss extended) 


Users Logical Record Interface Area for SAM Data Sets 





offset Length Name Description 
OCX'0') 8 LRILOC LRI location 
OCX'O') G LRILGTH Length of LRI area—LRECLt+32 
(same as LRILNGTH below) 
OCX'0') 1 LRIFLG1 Flags 
ats San LRIEOD End-of-data reached 
; nes LRICOB COBOL data set 
. eee. LRIEOB EOD after first end-of-block 
20 eX XXXX Reserved 
1CX*1!®) 3 LRILNGTH Length of LRI Area-——LRECL+32 
GOX*4") 1 LRIFLAG2 Flags 
-l.. .... ;%LRIRELSE Release issued 
week: aes. “ERISEG Segmenting is in process 
~e.. el... LRINTSPN Nonspanned record 
a ..-.-l LRIASSEM Assembling is in process 
x. xX.X. Reserved 
5OX'5') 1 LRIINDEX Index to beginning of data 
60X'6") 2 LRIPOS Position of record in block 
8CX'8!) 8 LRITRKAD Track address of beginning 
record segment 
BCX'S!) 5 LRIMBBCC MBBCC of track address (not used 
if DCB is for output) 
13CX'D*) 3 LRIRECAD Record address when record to be 
written requires segmentation 
16CX'10') G LRINIOB Next IOB address (same as 
LRINXIOB below) 
16¢X"'10') 1 Filler 
l7CX"l1l1l') 3 LRINXIOB Next IOB address 
200X'1G4") 2 LRICOUNT Count field of number of bytes 
moved 
22€X"'16"') 2 Filler 
20CX"'14"') 4 LRICOUNT Count field, full word value, of 
the number of bytes moved when 
extended logical record 
interface (XLRI)Jis used 
240X'18') 8 LRIALIGN Floating alignment area 
240X'18! 1 LRIDATA Data 
SUBSYSTEM CICB~-~IGGCICEB 
Offset Length Name Description 
OCX'0') 4 CINXTIOB Pointer to next IOB; 
initialized to point to itself 
GOX'G?") 4 CIECBCD Psuedo ECB; always marked 


222 


MVS/XA SAM Logic 
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Offset Length Name Description 
BCX"8") 4 CI1OB Start of basic IOB section 
12€X'*C*) 4 CIECBPTR Address of pseudo ECB-in 
prefix 
200X"14") 4 CIRESID Residual count (CSW); set 
Prior to each SYNAD entry 
28(X"1C") 4 CIDCBPTR DCB address 
320X'20"') 56 CIACBD Data ACB 
88(X'58") 20 CIACBED ACB extension 
108(X'6C") 8 CISYNNAM SYNAD executor name 
116(X'74'") 4 CIREGSAV SAM-SI register save area (not 
used): 
120(€X'78"') 4G CIREGBC Backward chain pointer CHSA) 
124(X"7C") 4 CIREGFC Foward chain pointer (LSA) 
128¢(X'80'") 60 CIREGS Registers 14 through 12 
188C(X'BC') 1 CIFLAG1 SYNAD error index 
189CX'"BD!') 1 CIFLAG2 DCB default flags: 
ee CIFMDSOR DSORG defaulted in DCB 
sh lis CIFMDEVT DEVTYPE before OPEN 
190CX'BE') 1 CIFLAG3 Control flags: 
i ee CIFFSTP PUT LOCATE first pass 
completed 
a CIFCLOSE CLOSE is processing the DCB 
kes CIFRAGM + area obtained for BSAM 
ak CIFVSRI VS record is incomplete 
1 ae CIFVSEOB VBS-format record end-of-block 
CIFERROR SYNAD 1s processing an error 
CIFPOINT Invalid POINT request 
CIFCKBB SYNAD entry from 1GG019BB 
191CX'"BF*) 1 CIFLAG4 Reserved 
192¢€X'CO") 76 CIRPL Request parameter list (RPL) 
268(X"10C") 16 CIRPLEXT RPL extension 
284C0X"11C') 20 CIFDBK RPL feedback area 
304(X'130") 4 CILWAREA Spanned-record work area 
= BSAM: Size of record 
area obtained 
—  QSAM: RDW save 
location 
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Offset Length 


308(X'134') 
3120X'138') 


316¢€X'13C") 4 
3200X'140') 4 


3240X9144") 4 
328(X'148') 4 
3320X'149C') 4 
3360X'150') 1 
337¢€X'151") 3 
3400X'154'") 1 
341¢0X'155') 3 
3440X'158') 1 
345(X'159') 3 
348CX'15C') l 
349CX"15D") 3 
352(X'160') 1 
S530X'161") 3 


PARAMETER LIST~~IGGPARML 
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Name Description 


CISEGLEN Spanned-record segment length 


CIBLKPTR BSAM spanned-block current 
address 


CIRAREA Spanned record area address 
CIRECPTR Spanned record pointer: 
= BSAM: Current location 


in record area 
= QSAM: Spanned segment 


address 
CISAMWA SAM SI work area 
CIWK1 SAM SI work area 
CIWK2 SAM SI work area 


CISYNRC SYNDAF return code 
CISYNADA SYNDAF subroutine address 
CIBLDLRC BLDL return code 


CIBLDL BLDL subroutine address 
CIBSPRC BSP return code 

CIBSP BSP subroutine address 

CIFEOVRC FEOV return code 

CIFEOV FEOV subroutine address 
CISTOWRC STOW return code 

CISTOW STOW subroutine address 


This DSECT expands the parameter list passed to the open/close 
executors from common open/close. 


Offset Length 
OCX'0') 4 


OCX"0'") 1 
Deas 
CLOSE Options 


Offset Length 
eles 


224 MVS/XA SAM Logic 


Name Description 

PARDCBAD Address of DCB being 
opened/’closed (same as PARDCBAB 
below) 


PAROPT OPEN/CLOSE options 
PARENLST End of list 


Name Description 
PARREWND REWIND 
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Offset Length 

Pee al 

gtk 
are | 


PARLEAVE 
PARFREE 
PARRREAD 


Description 


LEAVE 
Unallocate during CLOSE 
REREAD 





OPEN Options 


Offset Length 


11ll1l 
~111 
oe 
11 
ae | 


1OX"1") yt 


PAROUTPT 
PAROUTIN 
PARUPDAT 
PARINOUT 
PARRDBCK 
PARINPUT 
PARDCBAB 


PRINTER DEVICE CHARACTERISTICS TABLE-—-IGGPDC 


Description 


Output 

Outin 

Update 

Inout 

Readback 

Input 

Address of DCB being open/closed 


A printer device characteristics table (PDCT) is generated 


during system generation for each 3203-4, 
4245, and 4248 printer. 


Model 5, 


unit record UCB UCS extension. 


offset Length 
OCX'O') 2 
2(X'2") 2 
QCX"G!*) 2 
60X'6!) ] 
7OX'"7") 1 
B8CX'8") ] 
9CX'"9!) 1 
i eae 
Eee 
fg dete 
Gib. Sackecee 
ee. Meee 
ie ee 
Pere ee 
noe | 
lOCX'A®) 1 
LICX"B!) 1 
12(X'C*") q 


Name 


PDCMPLEN 
PDCUCSL 
PDCERPWL 
PDCDCBC 
PDCFCBP 
PDCUCSP 
PDCFLAG1 
PDCUCSIT 
PDCLDPOS 
PDCAUTOP 


PDCPTDEV 
PDCFCBOP 
PDCCLRPT 
PDCLRUCS 
PDCSIGAT 


PDCFLAG2 
PDCAFCBP 


3203-5, 3211, 3262 
The PDCT is appended to the 


Description 


Maximum print line length 

UCS length 

OBR/MDR work area length 

DCB device type code 

FCB prefix id 

UCS prefix id 

Flag byte l 

Device uses UCS image table 
Lost data condition possible 
Hardware positions paper when 
FCB loaded 

Page tracking device 

FCB may contain options 

Clear printer command supported 
Limited function read UCSB 
Signal attention command 
supported 

Flag byte 2—Reserved 
Alternate FCB prefix id 
Reserved 





If UCBUCSE=YES is specified on the IGGPDC macro the following 
mapping is provided for the UCB UCS extension 





Offset Length 


OCX'O') 16 
16€X'10"') 2 
l8CX'l2°)) 2 


Name 
PDCUCS 


Description 
UCB UCS extension 


PDCSPGID Synchronization page id 


PDCPDCTO 


Offset to PDCT 
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This DSECT maps against the O/C/EOV work area fields DXCCWl | 

through DXCCW12. The purpose of the DSECT is to give meaningful ' 

equates to these fields when used by the open and close 

executors. The comments for each label indicate whether the 

alas is used by the OPEN executors (-0) or the CLOSE executors 

Offset Length Name Description 

368(X'170') 8 DXCCW1 

368(X'170') 4 DXBLDL BLDL parameter list -0O 

368(X'170') 4 SCNGETMA Register save area for QSAM 
routines -C 

368(X*170') l DXCCWOP CCN OP code -O 

368(X'170') l SCNSAVCD eeerem determination code 

368(X'170") l DXUCSUCB UCB UCS options -0 

369(X*171') 3 DXCCWADR Buffer address -0 

369(X'171'") 3 SCNGETMB (Same as SCWGETMA) -C 

3720X'174') 4 DXBLDLIM Image name for BLDL -O 

3720X'174") 2 DXCCWFLG CCW flags -O 

374(X'176") 2 DXCCWBYT CCW byte count -0 

376C€X'178') 8 DXCCN2 

376(X'178'") 4 DXIMGNAM Image name -0 

3760X'178!") 4 SCWRALL Save area for all registers 

408(X'198') 8 DXCCW6 

408(X'198'") 8 DXSAVUCS Area to save UCS name -0 

G16CX*1A0") 8 DXCCH8 

G16CX*1A0*) 4 DXIMGDCB sl of SYS1.IMAGELIB 

G2GCX"1A8') 8 DXCCW9 

G2GCX'1A8') 8 DXSAVFCB Area to save FCB name -O 

432(X"1B0') 8 DXCCW10 

G32CX"1BO*) 16 DXFCBUCS UCS and FCB parameter 
fields -0O 

432CX'1B0*) 8 DXFCBP To clear FCB parameter 
field -0O 

G32CX'1B0") l DXFCBSW1 eyes for FCB parameters 

433CX"1B9") l DXABEND Indicates DMABCOND to be 
issued -0 

G33CX'1B9!) 1 DXFLAG1 FCB flag byte -O 

G34CX'1BA*) 1 DXSTAGE2 Indicates next executor is 
stage 2 executor -D 

437CX"1B5") l DXFCBOPT JFCB FCB options —O 

438(X"1B6') 4 DXFCBID FCB image identification -0 

442CX"1BA"*) 8 DXCCW11 

4G4G2CX"1BA*) 8 DXUCSP Parameter list for UCS -0 

GG2CX"1BA*) l DXUCSSW1 eer for UCS parameters 

GG2CX"1BA*) 1 DXABRETC Internal return code for 
problem determination —0 

GG3CX"1BB*) 1 DXEROPT To save DCBEROPT -0O 

GGQGCX"*1BC*) 1 DXNABEND EReseae ABEND in control 

G45CX"1BD!*) 1 DXUCSOPT JFCB UCS options -0 

GG6CX"1BE*) 4 DXUCSID UCS image identification -0 

4500X"'1C2" ) 8 DXCCW12 

450¢0X"1C2") 4 SCWXCTLP Supervisor parameter list 


226 MVS/XA SAM Logic 


for XCTL -O0/C 
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SAM/PAM/DAM GTRACE BUFFER-—IGGSPD 


Offset 


OCX'0") 
OCX'0") 
OCX'0") 
BCX'8") 
9CX*9") 


9CX"9®) 
9CX*9') 
9CXt9') 


Length 


mie 6COO 


) 


mA) 


SPDBFR 
SPDHDR 
SPDDDNAM 
SPDABCCD 
SPDTRACE 


SPDTRRCD 
SPDRCDHD 
SPDRCDLN 


Description 


SPD buffer input record 
Buffer header 

DD name from TIOT 

ABEND condition code 

Trace record area (variable - 
maximum length is 247 bytes) 
Trace record 

Trace record header 

Trace record length 


i Depends on the length of the block to be traced (maximum 
block length is 245 bytes including the block address, if 


present). 
Offset Length 
LOCX'A’) 1 
LICX'B!) 
LICX'B!) 4 
L5CX'F!) 1 


SPDBLKID 
SPDDATAI1 


SPDBLKAD 


SPDDATA2 


Description 


ID of trace record 

Block to be traced (no block 
addresspresent) 

Address of block to be traced 
(not present for block with ID 
less than 127) 

Block to be traced (block 
address present) 


i Depends on the length of the block to be traced (maximum 
block length is 245 bytes including the block address, if 
present). 


STOW WORK AREA-~IGGSTW 


This DSECT maps the work area used by the STOW modules. 


Offset 
OCX'O') 
QGCX'G!) 
8CX'8!') 
lOCX'A') 
12(X'C') 
200X'14') 


28¢(X'1C') 
SICX'1F*) 


32(X'20') 


Length 
4 


Om WG CO OO NORD 


Name 
STWPARM 
STWHIGH 


STWOFFLW 


STWOLDNM 
STHNEWNM 
STWTTR 

STWCTTRN 


STWALIAS 
STWDATA 
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Description 


Address of user-supplied entry 
name Clower of two for change) 
Address of higher of two 
user-supplied names (change 
only) 

Reserved 

Offset to add, replace, or 
delete location in low block 
Name of entry being deleted 
Name of new entry 

Relative address of member 
Alias bit, number of TTRNs, and 
length of user data 

This member name is an alias 
User data for entry 
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Flag, Condition, and Switch Bytes 





offset Length Name Description 
94CX'5E') ] STWFLAG1] First flag byte bit definitions 
det. Ate STWNCHNG Change function Cused in 
combination with STWADD and 
STWDEL ) 
-l.. .... STWDEL Delete function 
el. «2... STWREPL Replace function 
--l .... STWADD Add function 
.- Ll... STWDRYRN Dry run being made on directory 


-l.. STWFLOW Used to control program flow 
.-l1. STWDCBWR Last DCB operation was a WRITE 
ee eee | Reserved 
O5CX'5F") 1 STWRTN Return code save area 





Control Blocks fur STOW Channel Programs 





Offset Length Name Description 


96CX"'60") If already on a doubleword; go 
to the next fullword boundry 





Event Control Block 


Offset Length Name Description 
LOOCX"'64") G ECBRB RB Crequest block) address while 
waiting for event 
LOOCX'64") 1 ECBCC Completion code byte 
1... .... ECBWAIT Waiting for completion of event 


.l.. .... j;FECBPOST Event completed 

-l111 1111 ECBNORM Channel program terminated 
without error 

-l.. ...1 ECBPERR Channel program terminated with 
permanent errors or for BTAM 
completed with an I/0 error 

-l.. ..l1. ECBDAEA Channel program terminated 
because a direct access extent 
address was violated 

-l.. ..l11 ECBABEND I/0 abend condition occurred for 
error transient loading task 

-l.. .1.. ECBINCPT Channel program intercepted 
because of permanent error 
associated with device end for 
previous request; the 
intercepted request can be 
reinitiated. 

-l.. 1... $ECBREPRG Request element for channel 
program made available after it 
has been purged 

-l.. 1... ECBHALT Enable command halted 

-l.. 1.11 ECBERPAB Abnormal completion of 
processing because of a critical 
error such as the presence of 
invalid control block fields 

-l.. 1111 -ECBERPER Error recovery routines entered 
because of direct access error 
are unable to read home address 
of record 0 
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Offset 


Length 


101¢X"65") 3 


101¢X"65") 


z 


Name 
ECBRBA 
ECBCCCNT 


Prefix Sections of the IOB 


Description 


Request block address (while 
awaiting completion of an event) 
Zeros or remainder of completion 
code Cafter completion of the 
event) 


Offset Length Name Description 
88(X"58'") 8 IOBPREFX Prefix sections 
88CX*58") 8 IOBQSAMNC QSAM/BSAM/BPAM prefix 
88CX*58") 8 IOBBSAMC Chained scheduling 
88CX"'58") 8 IOBBPAMC 16 bytes 
88C(X*58') 1 IOBCFLG1 Flag byte 
| rere IOBRSVOl Reserved 
gee: IOBRSVO2 Reserved 
Pe! eee IOBRSVO3 Reserved 
ef WL es IOBRSV04 #Reserved 
eee ee IOBPTST NOTE or POINT operation in 
process 
Pe ae IOBABAPP Error processed once by 
abnormal-end appendage 
oar .-l1. IOBRSTCH Restart channel 
eee .-l JOBPCI PCI interrupt has occurred 
89CX*59") 1 IOBRSVO5 Reserved 
90CX'5A*) 1 IOBCINOP Offset of last I/0 command 
for input operation CNOP CCW) 
from the ICB origin 
91CX"5B*) 1 IOBCONOP Offset of last I/0 command 
for output operation (NOP 
CCH) from the ICB origin 
92C0X"5C*) 4 IOBCECB Event control block 
96(X"60!') G IOBCICB Address of first ICB on queue 
100¢€X*64') G IOBCNOPA Address of NOP command at end 
of queue 
QSAM BSAM BPAM Prefix 
Offset Length Name Description 
960X'60') 8 IOBQSAMN QSAM/BSAM/BPAM prefix 
96(0X*'60") 8 IOBBSAMN Normal scheduling 
960X'60') 8 IOBBPAMN 8 bytes 
96¢0X"60') 4G IOBNIOBA Address of next IOB on chain 
96(X*'60') 1 IOBNFLG1 Flag byte 
case. nets IOBPRTOV PRTOV occurred 
Pe eran IOBWRITE WRITE operation in process 
EDae ais IOBREAD READ operation in process 
Pare (ae IOBUPDAT Block is to be updated 
~» lL... IOBBKSPC IOB is being used for BSP CTRL 
NOTE/POINT 
.l.. IQBSPAN Spanned record 
..-l1. IOBUPERR Sarg channel program has been 
spli 
Foierts -l1 IOBFIRST First IOB on chain 
970X"61"') 3 IOBNIOBB poenese of the next IOB on the 
chain 
lOOCX'64') G IOBNECB Event control block address 
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Standard Section of the IOB 


Offset Length 


104(€X*68" 8 
104¢€X'68')1 


dosnes 


105€X'69")1 


Day's 


106(X'6A")1 


ee 
me Be 


230 MVS/XA SAM Logic 


Name 


IOBSTDRD 
IOBFLAG1 
IOBDATCH 


TOBCMDCH 


IOBERRTN 
ITOBRPSTN 
TOBCYCCK 
ITOBFCREX 


IOBIOERR 
TOBUNREL 


IOBSPSVC 


IOBFLAG2 


IOBHALT 


IOBSENSE 


TOBPURGE 
ITOBRDHAO 


IOBALTTR 


IOBSKUPD 


IOBSTATO 


TOBPNCH 


IOBSENSO 


IOBSOBO 


TOBSOB1 
TOBSOB2 


Description 


Flag byte 


Data chaining used in channel 
program 


Command chaining used in channel 
program 


Error routine is in control 
Device is to be repositioned 
Cyclic r 


FETCH command retry exit Cdirect 
access only) 


I/O error has occurred 


I/0 request is unrelated 
Cnonsequential ) 


SAM/PAM flag set by SVC if I70 
appendage should not process 
interrupt 


Flag byte 


HALT I/’0 issued by SVC PURGE 
routine 


Issue SENSE command after device 
end occurs 


IOB purged—allow I/0 to quiesce 


Home address to be read—no seek 
needed 


No test for 
out-of-extent—alternate track 
in use 


Seek address is being 
updated—cylinder sie or file 
mask violation has occurred 
Device end status OR-ed with 
channel end status—graphics 
device 

Turned on by QSAM when error 
recovery is to be provided for 
the 2540 Card Punch 

First sense byte 

Bit 0 (device dependent) 

Bit 1 €device dependent) 


Bit 2 (device dependent) 
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Offset Length Name Description 
-l .... IOBSOB3 Bit 3 (device dependent) 
1... IOBSOBG Bit 4 (device dependent) 


-l.. IOBSOBS Bit 5 C€device dependent) 
-l. IOBSOB6 Bit 6 Cdevice dependent) 
-l1 IOBSOB7 Bit 7 (device dependent) 


-L IOBSNSC9 Channel 9 sensed in carriage 


tape 

107(X*6B*")1 IOBSENS1 Second sense byte 
1... .... IOBS1BO Bit 0 Cdevice dependent) 
-l.. .... IOBS1B1 Bit 1 (device dependent) 
ol. .... IOBS1B2 Bit 2 (device dependent) 
-l1 .... IOBS1B5 Bit 3 (device dependent) 
1... IOBS1B4 Bit 4 (device dependent) 
~l.. IOBS1B5 Bit 5 (device dependent) 
-l. IOBS1B6 Bit 6 (device dependent) 


-l1 JOBS1B7 Bit 7 Cdevice dependent) 


L1O8C(X*"6C")G IOBECBPT Address of ECB to be posted upon 
completion of I/0 
108C(X*6C")1 IOBECBCC Completion code for current I/70 
request 
1O09CX*6D")3 IOBECBPB Address of ECB to be posted upon 
completion of I/0 
112¢€X"70'")1 IOBFLAGS Error routine flag byte 
1... ..-.-. IOBCCC Channel control check error 
count 
.l.. .--. QYIOBICC Interface control check error 
count 
lL. .... IOBCDC Channel data check error 
lL ...- %QIOBACU Attention/control unit error 
l... IQBCNC Chain check error 
-L.. IOBMSG Message flag 
-L. IOBICL Incorrect length error 
-l IOBLOG Log-out flag 
L13CX*71")7 IOBCSWN Seven low-order bytes of CSW at 
channel end 
L113CX*71')3 IOBCMDA Command sddreee €3890) 
116€X*74")2 IOBSTBYT Status bits 32-47 (3890) 
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Offset 


118(X'76")2 
120(€X*78")4 
120¢€X*78')1 


121(X*79")3 
1240X*7C* 4 


124CX'7C')1 


Length 


| 


125¢0X*7D")3 


128¢€X"80')4 
128¢(X'80')1 
129¢X'81')3 
132€X"84')2 


1320X"84")1 


1335CX'85")1 


134(X"86")2 
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IOBSTART 
IOBSIOCC 


IOBSTRTB 
IOBDCBPT 


IOBFLAG4 
IOBGDPOL 


IOBRSV538 
IOBRSV39 
IOBRSV40 
TOBRSV41 
TOBRSV42 
IOBRSV43 
TOBRSV44 
IOBDCBPB 


IOBRESTR 
IOBREPOS 
IOBRSTRB 
IOBINCAM 


IOBCRDCC 


IOBCRILC 


IOBERRCT 


Description 


Last two bytes of IOBCSW 
Address of channel program 


Bits 2 and 3 = condition code 
from SIO 


Address of channel program 


Address of data control block 
for this IOB 


Flag byte 


Reenter SIO appendage for OLTEP 
guaranteed device path 


Reserved 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 
Reserved 


Address of data control block 
for this IOB 


Restart address for error retry 
Code used to reposition device 
Restart address for error retry 


Value used to increase block 
count on tape 


Optical reader——data check error 
count 


Optical reader—Incorrect Length 
error count 


Count of error retries 


Direct Access Extension Section of the IOB 


Offset 


136(X'88") 


137(X'89!*) 
137(X*89") 
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Length 


Name 


IOBM 


IOBBD 


IOBBB1 


Description 


Relative extent number for 
this request (0-15) 


Bin number (data cell) 


LY26-3967-0 © Copyright IBM Corp. 1977,1985 


Offset 


138CX'8A") 
139(X'8B!*) 
139CX*8B*) 
140¢€X*8C') 
141¢0X'8D") 
1410X"8D") 
142CX'8E*) 
143CX'8F*) 


STOW Channel 


Offset 


1440X'90") 


144(X"90") 
1520X"98") 
160CX*AD*) 
168(X"A8") 
169CX*A9") 
172CX*AC*) 
176(X"BO*) 


184(0X"B8&") 
192(X*CO") 
200CX'C8&") 


200CX'*C8*) 
2010X'C9*) 
204(X'CC*) 
208CX"DO") 
216(X"D8") 
2170X"D9") 
220¢(X"DC*) 
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Length 


— =~ m= A — Mm AD 


Programs 


Length 


oOo fF Ww = OC} C6 Oo 


oo 


ie) 


== WwW = OF: FD WwW 


IOBBB2 
ITOBCC 
TOBCC] 
IOBCC2 
IOBHH 
IOBHH1 
IOBHH2 
IOBR 


Name 


STWINCP 


STWSRCH1 
STWTIC11 
STWRDCT1 
STWSRKY1 
STWKYAD1 


STWTIC12 


STWRDAT1 
STWRCKD1 
STWWRDCP 


STWSRCH2 
STWIDAD2 


STWTIC2 

STWNRKD1 
STWNRAD2 
STWWFLG2 
STHCMDCH 


Description 


Cylinder number 


Track number 


Record number 


Description 


Channel program to read the 
initial 4 two directory 
blocks 

Search ID equal 

Transfer control to search ID 
Read count 

Search on key equal of high 
Key address 


Flags and byte count 


Transfer control to read 
count 


READ data 
READ count key data 


Channel program to WRITE and 
READ directory blocks 


search ID equal 

ID address 

Flags and byte count 
Transfer control to search ID 
WRITE key and data 

WRITE address 

Flags 


Command chain to next CCW 
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Offset Length Name Description 
| 
221¢X"DD!) 3 Byte count 2 
224(X'EO') l STWRCKD2 READ count key data 
225(X"E1L") 3 STWRDAD2 READ Address 
228(X'EG") G Flags and byte count 
232(X'E8") l STWRCKD3 READ count key data 
Z233CX'EO") 3 STWRDAD3 READ address 
236(X'EC*) G Flags and byte count 





STOW Input/Output Buffers 


(For details, see Buffer DSECT, 
Offset Length Name 

2400X'FO") 276 STWBUF1 
516(0X'204") 276 STWBUF2 
792€X'318") 276 STHBUF3 
1072(X'430") 8 STWEND 


Map of STOW Input/Output Buffers 


Offset Length Name 
OCX'0') 8 BUFCNT 
OCX'O') BUFCCHHR 
5CX"5") 3 BUFKDD 
8CX"8") 8 BUFKEY 
16(X*10") 256 BUFDATA 
16(X"10°) 2 BUFN 
18¢€X"'12") 254 BUFENTRY 
272(X'110') 4G BUFADDR 


below. ) 


Description 
Initially contains the first 
of two directory blocks read 


Initially contains the second 
of two directory blocks read 


Initially used as the first 
output buffer 


End of work area 


J 


Description 

Count field containing 
absolute disk address 
CCHHR field 

Key and data length 


Key field Chighest member 
name) 


Data Area 


Number of bytes used in this 
directory block 


Directory entries 


Used to chain buffers 


LY26-3967-0 © Copyright IBM Corp. 1977,1985 


Contains Restricted Materials of IBM 
Licensed Materials —— Property of IBM 


SVRB Extended Save Area 


Offset 


OCX'0") 
GCX'G") 
B8CX'8") 


SYNADAF GENERAL REGISTERS SAVE 


Offset 


OCX'0') 
OCX'0") 
QCX"4G") 
B8CX'8") 
12CX'C*) 
720X"48") 


8O0CX"50') 
80(0X"50") 
80(X'50") 
84(0X"54") 
860X'56") 
86(X'56') 
86(X"56') 
87(X'57") 
88CX'58") 
88CX"58') 
92(X'5C") 
96(X'60'") 


100CX'64") 
120(X*78") 
121¢X'79") 
122(X*7A*) 
130CX"82") 
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Length 


16 


Name 


XSAREG4 
XSASTWWA 
XSAESTAE 


Description 


Save area for register 14 
Address of STOW work area 


List form of the ESTAE macro 
instruction. 


AREA AND MESSAGE BUFFER AREA~~IGGSYN 


Length Name 
72 SYNSAVE 
& SYNPLI 
4 SYNPREV 
q SYNNEXT 
60 SYNGRS 
8 SYNVLFLD 
1 SYNMSG 
6 SYNREAD 
G SYNRDERR 
2 SYNBYTRD 
35 SYNWAREA 
1 SYNPURG 
1 SYNACMTH 
1 
8 SYNWRKA 
G SYNNKA1 
4 SYNWKA2 
4 
20 SYNWORK 
1 SYNSTART 
1 SYNCMMA] 
8 SYNJOBNM 
1 SYNCMMA2 
1977,1985 


Description 


Save area 

Used by PL/I language program 
Address of previous save area 
Address of next save area 
General register save area 


Length field for variable-length 
records 


Data Area 

Data area for READ 

Return information if read error 
Number of bytes read 

Work area 

Error type indicator 

Access method input code 

Unused 


Work Area 


Work area 
Work area 
Unused 
Work area 
Blank 
Comma 

Job name 


Comma 


number 1] 


number 2 
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Offset 


131(X'83") 
139(X"8B") 
1400X*8C') 
143CX'8F") 
144(0X'90') 
146(X'92") 
1470X'93") 
155(0X'9B!") 
156CX'9C*) 
162CX'A2'") 
163CX"A3") 
178CX"B2') 
179CX*B3") 
179CX"B3") 
186CX"BA') 


186CX'BA') 
1920X'CO'") 
193SCX*C1") 
193CX'C1") 
199(X'C7") 
200(€X'C8&') 
204(0X*CC") 
208(X'DO") 


Length 
8 
1 
3 
1 
2 
1 
8 
1 
6 
1 


15 
1 
14 


~ 


apa DH DP KY UY FF AO 
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SYNSTPNM 
SYNCMMA3 
SYNUNTID 
SYNCMMA4 
SYNDVTYP 
SYNCMMA5 
SYNDDNM 
SYNCMMA6 
SYNOPRTN 
SYNCMMA7 
SYNERROR 
SYNCMMA8 
SYNPOS 
SYNPOSM1 
SYNPOSM2 


SYNPOSMV 
SYNPOSMS 
SYNCMMA9 
SYNACCSS 
SYNBLNK2 
SYNPRMR1 
SYNPRMR2 
SYNEND 


Description 


Step name 

Comma 

Unit address 

Comma 

Device type 

Comma 

DD name 

Comma 

Operation attempted 
Comma 

Error description 
Comma 

Area to unpack ICB seek address 
Unused—magnetic tape 


Area to unpack block count for 
magnetic tape 


Unpack value 

Sign byte in unpack format 
Comma 

Access method type 

Blank 

Parameter register save area 
Parameter register save area 


End of IGGSYN 


SYNADAF and SYNADRLS SVRB Extended Save Area 


Offset 


160CX*A0') 
164(X'AG") 
164(X"A4") 
168(X'A8*) 


Length 


4 
16 
4 

12 


168(X"A8") 4 


172¢CX*"AC*) 
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Name 


SYNRETA 

SYNXCTPL 
SYNXCTEP 
SYNXCTLT 
SYNXCTDB 
SYNXCTNM 


Description 


Return address 

XCTL parameter list 

Address of the entry point name 
List of parameters 

Address of the DCB 


Entry point name 
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Offset Length Name Description 
176(X"BO') 1 SYNXCTID Load module ID 
180¢(X"B4") 1 SYNESTPL Flags for TCB PURGE and ASYNCH 
181¢CX'B5") 3 Exit address not specified 
184(X"B&') 4 Parameter list address not 
specified 
188CX'BC') 4 TCB not specified 
192CX'co') 1 Flags 
193CX*C1") 3 Reserved 
196(X'C4") 4 SYNESFLG ESTAE routine flag word 
Lis SYNGTM Return from GETMAIN without 
error 
mm Fe SYNCSA Save areas chained successfully 
ae SYNMLC Message CSECT loaded 
Pa | SYNRCS Caller's save area restored 
successfully 
Lists SYNESTAE ESTAE routine entered 
» XXX Reserved 
198(X'C6") 1 SYNURKEY User key 
199(X'C7") 9 SYNUNPKA Work area for unpack 
SETPRT PARAMETER LIST-~IHASPP 
Offset Length Name Description 
Ocx'o') 1 Unused 
1X1") 3 SPPDCBB DCB address 
QCX"4G") 4 SPPUCS UCS module ID (not used for 3800 
Printing Subsystem) 
B8CX*8") 1 SPPLDMOD Flag byte describing load mode 
(not used for 3800 Printing 
Subsystem) 
Oe. UCS= fold not specified 
whd UCS= fold 
x.XX XXXX Reserved 
9(X'9?) 1 SPPVERFY Flag byte describing UCS verify 
Ec 3800 Printing 
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Offset Length 


0 
sek 
XXX. XXX 
1OCX'A") 1 
10.. 
O1.. 
.10 


.O1 


10.. 
01.. 


L1CX*B*) 4G 


I5CX'F*) 1 


16CX'10") 1 


SPPFDUNF 
SPPFBLK 

SPPFUBLK 
SPPSCHED 


SPPNOSCD 


SPPUNFLD 


SPPFOLD 


SPPEXTL 


SPP FCB 


SPPVERAL 


SPPFLAGI 
SPPBURST 
SPPBURST 
SPPREX 


SPPINIT 


SPPNOMSG 


SPPBFREQ 


SPPBTREQ 


Description 


No verification for UCS 
UCS verification requested 
Unused 

Flag byte: 

Block data checks 

Unblock data checks 


Schedule SYSOUT data set segment 
for printing now 


Do not schedule SYSOUT segment 
for immediate printing 


OPTCD= unfold option 
OPTCD= fold option 
Unused 


SETPRT parameter list is at 
least 48 bytes long 


FCB module ID or address of 
in-storage FCB module (see 
SPPFLAG2) 

FCB flag byte: 


No FCB image verification 
requested 


Print FCB image for verification 
Unused 

No forms alignment requested 
Cnot used for 3800 Printing 
Subsystem) 

Issue WTOR for forms alignment 
(not used for 3800 Printing 
Subsystem) 

Flag byte number 1: 

Thread continuous forms stack 
Thread burster-trimmer-stacker 
Retransmission —- only change 
COPIES, FLASH, and starting copy 
number 

Issue initialize printer CCW 


Suppress error messages on the 
printer 


Bypass forms overlay WTOR or 
bypass band mount message 


Bypass threading change WTOR 





MVS7XA SAM Logic 
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Offset Length 


W7CX*'11"') 61 


Name 


SPPBOMSG 


SPPFORC 
SPPFLAG2 


Description 


Bypass WCGM's exceeded error 


message 
JES force 
Flag byte 


Copy 
is a 


Copy 


load of the FCB 


number 2: 


modification is specified 


as an address. 


Character 
specified 


Character 
specified 


Character 
specified 


Character 
specified 


Character 
specified 


Character 
specified 


Character 
specified 


Character 
specified 


modification, if specified, 
module ID. 


arrangement table 0 if 


is a module ID 


arrangement table 
as an address. 


arrangement table 
1s a module ID. 


arrangement table 
as an address. 


arrangement table 
is a module ID. 


arrangement table 
aS an address. 


arrangement table 
is a module ID 


is 


if 


is 


if 


is 


if 


arrangement table 3 is 


as an address. 


.O.. FCB is specified as a module ID. 
Re ee FCB is specified as an address. 


ef DOR Unused bits. 


18(X'12") 1 SPPCPYNR The number of copies to be 


printed. 


19€X*'13') 1 SPPSTCNR The copy number of the first 


copy to be printed. 
20CX*14") 2 
22(X'16") 1 


SPPLEN 
SPPFRMNR 


Length of the parameter list. 


The number of copies to be forms 
flashed, starting with the first 
printed copy. 

230X'17"') #1 SPPTRC The character arrangement table 
to be selected when the 
specified copy modification 
record is loaded in the printer. 
24(X'18") G SPPMODPT The module ID or in-storage 
address of the copy modification 
module. 

28(X"1C") G&G 


SPPIMAGE The identifier for the forms 


overlay frame. 
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Offset 


32(°X'20") 


360X'24") 


40(X'28") 


G4(0X*2C") 


48(X'30") 


520X"34") 


56(X'38") 
57(X'39") 


58(X"3A'") 


240 MVS/XA SAM Logic 


Length 


6 


-1ll 


ll 


ll 


00.. 
01.. 
10.. 
ll.. 

.00 
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SPPXLAT1 


SPPXLAT2 


SPPXLAT3 


SPPXLAT4 


SPPEMSGA 


SPPLIDCB 


SPPCOPYP 


SPPFLAGS 


SPPCPYPS 
SPPPSPDS 


Description ) 


The module ID or in-storage 
address of character arrangement 
table module 0. 

The module ID or in-storage 
address of character arrangement 
table module 1] 

The module ID or in-storage 
address of character arrangement 
table module 2. 

The module ID or in-storage 
address of character arrangement 
table module 3. 

Address of the message 
communication area for error 
information. 

Address of the library DCB for 
3800 Printing Subsystem load 
modules. 

COPYP specification 

Flag byte number 3: 

COPYP specified 


PSPEED specified 


Reserved J 


Caller's PSPEED specification as 
follows: 


Unchanged 

Low 

Medium 

High 

Reserved; must be zero 


Reserved 
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ACCESS METHOD SAVE AREA FOR USER TOTALING 


( The access method save area for user totaling is pointed to by 
; the address in bytes 5 through 7 in the EXCP access method, 
see QSAM-dependent section of the DEB. See Figure 34 on 
page ; 


Size of access method totaling save area! 
Address of last image area for volume 
Register 


save 


First image area® 


Last image area 3 
'The size of this save area includes the space used by image areas. 


2This field is adjusted by the End-of-Volume routine so that it points to the 
image area containing the user’s total for the last record written on the volume. 


Sthe image areas are all the same size, that is, the length of the user's totaling 
area rounded to the nearest half-word. 





Figure 34. Access Method Save Area for User Totaling 
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OPEN AND CLOSE EXECUTOR PROBLEM DETERMINATION 


QSAM_ CONTROL BLOCKS 


BSAM CONTROL BLOCKS 


For information on tracing module and data flow during execution 
of the OPEN and CLOSE executors that issue the IECRES macro, see 
"Problem Determination" in Open/Close/E0OV Logic. Note that the 
access method executors do not have transfer control tables as 
common OPEN and CLOSE modules do. 


Figure 35 on page 243 shows the control blocks used in QSAM. 
Through the data control block (DCB), the QSAM routines 
associate the data being processed with the processing program. 
Fields in the DCB point to the start of a buffer, the end of a 
buffer, and an input/output block (IOB). These fields are 
updated as successive channel programs are executed. Each [0B 
points at the next IOB and at a channel program (CP), and 
carries an event control block (CECB) that the I/0 supervisor 
posts after the channel program has been executed. 


Figure 36 on page 244 shows the control blocks used in BSAM and 

their stages of completion. Stage 0 shows the state of the 

control blocks before any READ or WRITE macro instruction. 

Stage 1 shows the effect of the READ or WRITE macro instruction, | 
that is, the values supplied by the processing program in the ! 
data event control block CDECB). Finally, stage 2 shows the 

effect of the READ or WRITE routine having tied together these 

control blocks. 


Before any READ or WRITE macro instruction, the data control 
block CDCB) points to the first input/output block (IOB). This 
IOB points back to the DCB, to the next IOB, and to the channel 
program (CP). The READ or WRITE macro instruction identifies 
the DCB and the buffer to be read into or written out. Finally, 
the READ or WRITE routine connects the DECB with the current 
IOB, inserts the address of the ECB (which is located in the 
DECB) into the IOB, and points the channel program to the 
buffer. Successive macro instructions cause updating of the IOB 
address in the DCB and insert address values in the next DECB, 
IOB, and channel program. 
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1B 
NEXT 1OB 
|CPAD 


CPAD 


oO 






NEXT 1OB 
CPAD 









aaa aaa el 


| L--———__ NEXT 10B 
CPAD 






i 





Legend: 
Address Values: 
O Entered by the OPEN executor. 
1 Updated by the synchronizing routine. 
2 Updated by the GET or PUT routine. 


— — — Successive Address Values 


Figure 35. QSAM Control Blocks 
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BUFFER 





Legend: 
Address Values 
O Entered by the OPEN Executor. 
1 Provided by the processing program. 
2 Completed by the READ or WRITE routine. 
~-- Successive Address Values. 


Figure 36. BSAM Control Blocks 
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JES COMPATIBILITY INTERFACE CONTROL BLOCK (CICB 


Figure 37 shows the relationship of the SYSIN/SYSOUT data sets. 


Spool DCB 


DCBSVCXL 


(DCBIOBAD) 





DCBDEBAD 


DCBCICB 


(DCBIOBA) 





Save Area 


SAM-SI Flags 


RPL 


Internal 
Pointers 


and 
Work Areas 


SVC Exit List 


Notes: 

1. Set by DCB OPEN executors (SAM-SI). 

2. Set by ACB OPEN (JES2 and JES3 open executors). 
3. Set by DCB OPEN executors after ACB open. 


[ 
ma 





DEB 


DEBDCBAD 


DEBECBAD 


Figure 37. Control Block Structure for SYSIN/SYSOUT Data Sets 
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ABEND CODES AND CROSS-REFERENCE TABLE 
This table can be used to determine which module detected an ) 
abnormal termination condition. The system code and return code 
Cregister 15) are used to identify the message ID and the module 
name and can be found in dumps and in the message text. For 
example, in the message 
IEC1G1I, 013-BC, IGG0199G, JJOUFPNS5,,SYSIN 
013 is the system code and BC is the return code. Information 


in the table should be used in conjunction with System Messages 
and System Codes. 


Abend Return Message 
Code Code Module Number 
001 IGGO19AH 
IGGO19AN 
002 04 IGGO19AB IECO36I 
IGGO19AD 
IGGO19AE 
IGGO19BN 
IGGO19B0 
IGGO19FB 
IGGO19OFD 
IGGO1LOFF 2 
08 IGGO19CC 
IGGO1LOTV 
IGG019T2 
oc IGGO1ITV 
10 IGGO19FG 
14 IGGO19AL 
IGGO19DK 
IGGO019T2 
18 IGGO19IAJ 
IGGO1L9BP 
IGGO19DJ 
IGGO19FJ 
003 01 IGGOLICC 
02 IGGO19CE 
IGGO19CF 


IGGO19FK ) 
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Abend Return 
Code Code 


03 


02 
03 
04 
05 
06 


14 
18 
1c 
20 
24 


28 


30 
34 


40 
48 
4C 


50 
54 
5C 


60 


Module 


IGGO19FA 
IGGO19FQ 
IGGO197N 
IGGO197N 
IGGO197N 
IGGO197N 
IGG0197M 
IGG0197Q 
IGGO19BS 
IGGO19DC 
IGG0191C 
IGGO191B 
IGGO191B 
IGGO191B 
IGGO191A 
IGGO191A 
IGG0199G 
IGGO191A 
IGG0199G 
IGGO191F 
IGGO191T1 
IGG0199G 
IGG01910 
IGGO1911 
IGGO191A 
IGGO0196B 
IGG0199G 
IGG0196B 
IGG0196A 
IGG01915 
IGG01916 
IGGO191I 
IGGO19I1A 


Message 
Number 


IEC1411 
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Abend Return 

Code Code 
70 
88 
8c 
90 
94 
98 
9C 
A0 
AGS 
A8& 
BO 
B4 
B8 
BC 
Co 
cc 
DO 
E4 

112 01 
02 
03 
04 
13 
14 

115 

118 01 
02 


Note 
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Module user 2 
IGG0199G 

IGG0191B 

IGGO191L 

IGG0197V 

IGG0191A 

IGGO191A 

IGG0197V 

IGG0191A 

IGG0199G 

IGG0199G 

IGGO191A 

IGGO191A 

IGG0197V 

1GG0199G 

IGG0199G 

IGG0196Q! J 
IGGO191A 

IGG0196I 

IGCT0018 IEC908I 
IGCT0018 

IGCT0018 

IGCT0018 

IGCT0018 

IGCT0018 

IGGO210A 


IGCT0028 IEC9121 
IGCT0028 


a Applies only to 3800 Printing Subsystem 
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Se 


Abend Return Message 
Code Code Module Number 
119 01 IGCTOO2E IEC914I 
02 IGCTOO2ZE 
03 IGCTOO2ZE 
04 IGCTOO2ZE 
12 IGCTOOZE 
13 IGCTOOZE 
14 IGCTOO2ZE 
144 IGCOO06H 
145 01 IGCT0069 IECI16I1 
02 IGCT0069 
03 IGCT0069 
04 IGCT0069 
05 IGCT0069 
06 IGCT0069 
07 IGCT0069 
08 IGCOO06I 
IGCTO069 
151 IGCT1081 IEC918I 
169 01 IGCTO1LOE IEC919I 
02 IGCTO1LOE 
03 IGCTO1LOE 
IGCOO1OE? 
172 IGGO19BX 
212 01 IGCTO0018 IEC9IO9I 
02 IGCTO0018 
03 IGCTO018 
215 01 IGCTO0021 IEC91OI 
02 IGCTO0021 
03 IGCTOO021 
04 IGCTO0021]1 
Note 


1 Applies only to 3800 Printing Subsystem 


LY26-3967-0 © Copyright IBM Corp. 1977,1985 Diagnostic Aids 249 


250 


Contains Restricted Materials of IBM 





Licensed Materials — Property of IBM 
Abend Return Message 
Code Code Module Number 
218 | 01 IGCTO02D IEC913I 
02 IGCTO002D 
03 IGCTOO02D 
219 01 IGCTOO2ZE IEC915I 
02 IGCTOO2ZE 
03 IGCTOO2ZE 
04 IGCTOOZ2E 
244 IGCTO06H 
245 IGCT0069 IEC917I1 
251 01 IGCT1081 IEC918I1 
02 IGCT1081 
269 IGCTOLOE IEC920I 
315 IGCT0021 IEC911I 
337 08 IGGO19AV IECO24I 
344 IGCTOO6H 
351 IGCT1081 IEC918I 
400 IGGO19BX 
I1GG019BZ 
413 2C IGGO19I1N IEC145I 
GGG IGCTOO6H 
01 IGCT1081 IEC9I18I 
02 IGCT1081 
03 IGCT1081 
04 IGCT1081 
544 IGCTOO6H 
644 IGCTOO6H 
744 IGCTOO6H IEC907I 
B13 04 IGG0196Q IEC152I 
I1GG0196R 
08 IGG0196Q 
oc IGG0196Q 
IGGO196R 
10 IGG0196Q 


MVS/XA SAM Logic 
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Abend Return 
Code Code 


14 


18 


1C 


20 


24 


28 


2C 


30 


34 


B14 04 


08 


oc 


10 


14 


18 


C37 


Madule 


IGG0196Q 
TGG0196Q 
IGG0196Q 
IGG0196Q 
IGGO0196R 
IGG0196Q 
IGG0196R 
IGG0196Q 
IGG0196Q 
IGG0196Q 
IGG0196Q 
IGGO0201B 
IGG02012 
IGGO201B 
IGG02012 
IGGO201B 
IGG02012Z 
IGGO2018B 
IGG02012 
IGGO0201B 
IGG02012 
IGG0201B 
IGG02012 
IGCT0055 


| SETPRT EXECUTOR RETURN/REASON CODES AND MESSAGES 


Message 
Number 


IEC2171 


IECO33I 


The return codes produced by the SETPRT executors are set when 
an error is detected by one of the executors. The SETPRT work 
area contains the return code (Cat SPWRETCD) and the reason code 
Cat SPWRSNCD) (see "Data Areas" on page 210 for a description of 
the SETPRT work area). 
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Executor IGCO008A detects the following errors: 





Return Reason 
Code Code Message No. 
00000018 


0000001C 00000000 


0000001C 00000004 


00000048 00000004 


Description 


Either: 
e DCB not open 


@ DCB invalid for a 
sequential data set 


e SETPRT parameter list 
invalid 


° Output device not UCS or 
3800 printer 


Permanent I/O error ina 
previously initiated output 
operation. 


Possible lost data condition 
detected for a nonpage tracking 
printer. 


Possible lost data condition 
detected for a page tracking 
printer. 


Executor IGG08101 detects the following errors: 


Return Reason 

Code Code Message No. 
00000004 

00000008 


Description 


Operator canceled job 
step—chain, train, or band not 
available. 


Permanent I/0 error during BLDL 
for UCS image. 


Executor IGG08102 detects the following errors: 


Return Reason 
Code Code Message No. 
0000000C IEC126I1 
00000010 
00000014 
0000001C 00000004 

LY26-3967-0 


Description 


Permanent I/0 error during UCS 
load. 


Permanent I/O error during UCS 
verification display. 


Operator canceled SETPRT during 
UCS verification display. 


Possible lost data condition 
detected for a nonpage tracking 
printer. 
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Executor IGG08103 detects the following errors: 





Return 
Code 


00000400 


00000800 


oo00000I1C 


00000048 


Executor 


Return 
Code 


00000C00 


00000C00 


00001000 


00001400 


0000001C 


00000020 


00000048 


Reason 
Code 


00000004 


00000004 


Description 


Operator canceled job step-——FCB 
not available. 


Permanent I/0Q error during BLDL 
for FCB image. 


Possible lost data condition 
detected for a nonpage tracking 
printer. 


Possible lost data condition 
detected for a page tracking 
printer. 


IGG08104 detects the following errors: 


Reason 
Code 


00000000 


00000004 


00000004 


00000004 


IEC124I 


IEC1241 


Description 


Permanent I/0 error during FCB 
load. 


Permanent I/0 error during FCB 
load; LOAD check-——probable FCB 
contents error. 


Permanent I/0 error during FCB 
verification display. 


Operator canceled SETPRT during 
FCB verification display. 


Possible lost data condition 
detected for a nonpage tracking 
printer. 


No storage available for FCB 
copy/’convert area. 


Possible lost data condition 
detected for a page tracking 
printer. 





Executor IGG08105 detects the following errors: 


Return 
Code 


00000004 


00000008 


Reason 
Code 


Description 
Operator canceled SETPRI—band 
not available. 


Permanent I/0 error during BLDL 
for UCS image table. 
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Return 
Code 


o000000C 


00000010 


00000014 


0000001C 


00000020 


00000048 


Executor 


Return 
Code 


00040000 


00080000 


00000020 


00000024 
00000038 


Reason 
Code 


00000004 


00000004 


Reason 
Code 


0000nn04 


0000nn04 
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IEC1681 


IEC169I1 


IEC174I1 


IEC1751 
IEC178I 


Description 


Permanent I/0 error during band 
id display. 


Permanent I/0 error during UCSB 
read. 


Operator canceled SETPRT during 
UCS verification display. 


Possible lost data condition 
detected for a nonpage tracking 
printer. 


No storage available for read 
UCSB area. 


Possible lost data condition 
detected for a page tracking 
printer. 


IGG08110 detects the following errors: 


Description 


Issued if any of the specified 
modules for character 
arrangement tables (where nn= 
01 to 04) could not be found on 
the library. 


An I/0 error occurred while 
attempting to locate a 
character arrangement table 
(where nn= 01 to 04) in the 
library data set. 


SYS1.IMAGELIB was not opened 
because storage space was not 
available. 


SYS1.IMAGELIB cannot be opened. 
If0 error occurred while trying 


to initialize the 3800 Printing 
Subsystem. 
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Executor ICC08111 detects the following errors: 


Return 
Code 


00040000 


00080000 


000C0000 


000C0000 


00006030 


00000044 


0000004C 


0000004C 


Executor 


Return 
Code 


00040000 


00040000 


Reason 
Code 


00000018 


00000018 


xx000018 


xx00001C 


xx000018 


xx00001C 


Message No. 


IEC1681 


IEC1691 


IEC170I1 


IEC170I1 


IEC176I1 


IEC182I 


IEC184I 


IEC184I1 


Description 


Issued if any of the specified 
modules for library character 
sets could not be found on the 
library. 


An I/0 error occurred while 
attempting to locate a library 
character set in the library 
data set. 


An I/0 error occurred while 
loading a library character set 
(xx indicates the opcode of the 
CCW when the error occurred). 


An I70 error occurred while 
loading WCGMs (xx indicates the 
opcode of the CCW when the 
error occurred). 


There are more character set 
IDs requested in the character 
arrangement tables than the 
number of WCGMs installed on 
the printer. 


A position in the translate 
table refers to a WCGM for 
which no character set has been 
specified. 


A load check occurred while 
loading a library character set 
(xx indicates the opcode of the 
CCW when the error occurred). 


A load check occurred while 
loading WCGHs (xx indicates the 
opcode of the CCW when the 
error occurred). 


IGGO08112 detects the following errors: 


Reason 
Code 


00000008 


0Ommnn10 


Message No. 


IEC1681 


IEC168I 


Description 


The requested copy modification 
module could not be found on 
the library. 


Issued if any of the specified 
modules for graphic 
modification records could not 
be found on the library (nn is 
the index of the character 
arrangement table, and mm is 
the index of requested graphic 
character modification module 
within that table). 
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Return 
Code 


00080000 


00080000 


000C0000 


000C0000 


000C0000 


00000020 


00000024 
00000034 


0000004C 


0000004C 


Reason 
Code 


00000008 


0O0mmnn10 


xx00nn04 


xx000008 


xxmmnnl 0 


xx00nn04 


xx000008 
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Message No. 


IEC1691 


IEC169I1 


IEC1701 


TEC1701 


TEC1701 


IEC1741 


IEC175I 
IEC1771 


IEC184I1 


IEC184I1 


Description 


2 


An I/0 error occurred while 
attempting to locate a copy 
modification module in the 
library data set. 


An I/0 error occurred while 
attempting to locate a graphic 
character module (nn is the 
index of the character 
arrangement table, and mm is 
the index of requested graphic 
character modification module 
within that table. 


An I/0 error occurred while 
loading a translate table 
(where nn=01 to 04 and xx 
indicates the opcode of the CCW 
when the error occurred). 


An I/70 error occurred while 
loading a copy modification 
module Cwhere xx indicates the 
opcode of the CCW when the 
error occurred). 


An I/O error occurred while 
loading a graphic character 
modification module (nn is the 
index of the character 
arrangement table, mm is the 
index of requested graphic 
character modification module 
within that table, and xx 
indicates opcode of the CCW 
when the error occurred). 


SYS1.IMAGELIB was not opened 
because storage space was not 
available. 


SYS1.IMAGELIB cannot be opened. 


J 


The requested copy modification 
module requires a translate : 
table which was not loaded for 
this request. 


A load check occurred while 
loading a translate table 
Cwhere nn=01 to 04 and xx 
indicates the opcode of the CCW 
when the error occurred). 


A load check occurred while 
loading a copy modification 
module Cwhere xx indicates the 
opcode of the CCW when the 
error occurred). 
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Reason 
Code 


0000004C xxmmnnl0 


Message No. 


TEC184I 


Description 


A load check occurred while 
loading a graphic character 
modification module (nn is the 
index of the character 
arrangement table, mm is the 
index of requested graphic 
character modification module 
within that table, and xx 
indicates the opcode of the CCW 
when the error occurred). 


Executor IGG08113 detects the following errors: 


Return 
Code 


00000400 


00000800 


00000C00 


00001000 


00001400 


00000020 


00000024 
0000004C 
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Reason 
Code Message No. 
00000020 IEC168I 
00000020 IEC169I 
xx000020 IEC170I 
xx000020 IECI711 
00000020 IEC172I 
IEC1741 
IEC175I1 
xx000020 IEC18&4I 
1977,1985 


Description 


The requested FCB image could 
not be located via the DCB exit 
list and was not in the library 
data set. 


An I70 error occurred while 
attempting to locate the 
requested FCB image from the 
library data set. 


An I/0 error occurred while 
loading an FCB (where xx 
indicates the opcode of the CCW 
when the error occurred). 


An I/0 error was encountered 
while printing a representative 
map of the requested FCB image. 


SETPRT processing was 
terminated because the operator 
canceled the job after 
inspecting the representative 
FCB image as it was displayed 
on the 3800 Printing Subsystem. 


SYS1.IMAGELIB was not opened 
because storage space was not 
available. 


SYS1.IMAGELIB cannot be opened. 
A load check occurred while 
loading a forms control buffer 


(xx indicates the opcode of the 
CCW when the error occurred). 
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Return 
Code 


00000028 


0000002C 


0000003C 


00000040 


00000040 


Reason 
Code 


xx000000 


xx000000 
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Executor IGG08114 detects the following errors: 


Message No. 


IEC172I 


IEC1721 


IEC179I1 


IEC180I 


IEC180I1 


Description 


The operator canceled SETPRT 
processing after receiving a 
request to load a forms overlay 
negative. 


The operator canceled SETPRT 
processing after receiving a 
request to rethread the 3800 
Printing Subsystem. 


A request for threading to the 
burster-trimmer-stacker was 
issued but the feature is not 
installed on the 3800 Printing 
Subsystem being used. 


An I/0 error occurred while 
trying to display a status code 
on the 3800 Printing Subsystem 
for a rethread or forms overlay 
request (xx indicates the CCW 
when the error occurred). 


An I/0 error occurred while 
issuing a "SENSE I/0* CCW to 
sense the present paper thread 
path from the 3800 Printing 
Subsystem (xx indicates the CCW 
when the error occurred). 


Executor IGG08115 detects the following errors: 


Return 
Code 


000C0000 


000C0000 


00000040 
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Reason 
Code 


xx00000C 


xx000014 


xx000000 


Message No. 


IEC170I 


IEC1701 


IEC180I1 
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Description 


An I/O error was detected while 
loading the starting copy 
number in the 3800 Printing 
Subsystem. 


An I/0 error was detected while 
loading the total copy count 
and forms overlay image count 
into the 3800 Printing 
Subsystem. 


An I/O error occurred while 
resetting the 3800 Printing 
Subsystem to the first 
translate table. 


1977,1985 


Contains Restricted Materials of IBM 
Licensed Materials -——~ Property of IBM 


Executor IGG08116 detects the following errors: 





Return 
Code 


00000048 


00000048 


Executor 


Return 
Code 


00000050 


00000050 


00000050 


00000050 


00000050 


00000050 


00000050 
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Reason 
Code 


xx000004 


xx000008 


Message No. 


IEC183I 


IEC183I1 


Description 


A system- restart- requested type 
of paper jam occurred on the 
3800 Printing Subsystem (xx 
indicates the opcode of the CCW 
when the error occurred). 


Cancel key was pressed on the 
3800 Printing Subsystem (xx 
indicates the opcode of the CCW 
when the condition occurred). 


IGG08117 detects the following errors: 


Reason 

Code Message No. 
00000004 IECI18&l1I 
00000008 IECI85I 
0000000C IEC185I 
00000010 IEC185I 
00000014 IECI18&5I 
00000018 IEC18&5I 
0000001C IEC185I 
Corp. 1977,1985 


Description 


An invalid SETPRT request for a 
SYSOUT data segment was 
specified. A storage address 
was used for a copy 


modification module, character 
arrangement table, FCB, or user 
library DCB. Only 3800 


Printing Subsystem load module 
IDs in SYS1.IMAGELIB are 
allowed for SYSOUT setup. 


During SETPRT processing for a 
SYSOUT data segment, an error 
was detected while attempting 
to read a JFCB or JFCBE control 
block from SWA. 


During SETPRT processing for a 
SYSOUT data segment, an error 
was detected while invoking the 
CLOSE Subsystem Interface for 
the previous data segment. 


During SETPRT processing for a 
SYSOUT data segment, an error 
was detected while invoking the 
OPEN Subsystem Interface for 
the new data segment being 
created. 


During SETPRT processing for a 
SYSOUT data segment, an error 
was detected while the 
scheduler spool file allocation 
fete was segmenting the data 
set. 


issued by SETPRT 
failed. 


An ENQ macro, 
processing, 


More than one DCB was open for 
the SYSOUT data set. 
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DEBUGGING EXCPVR CHANNEL PROGRAMS 


The IOBs chained off the DCBIOBA pointer do not contain a 
channel program; they contain one or two CCWs and status 
information Cin IOBNFLG1 and IOBEX). The CCWs and status 
information are used by the SIO/pagefix appendage to build a 
real-address channel program in the SAMB. The SAMB contains the 
channel program, the pagefix list, IDAW lists, the count field 
work area, and the status flags. Figure 38 shows the 
relationship between the DCB, the DEB, the ICQE, and the SAMB. 


DEB | D ICQE 


CB 
-8 
DEBXTNP DCBICQE 
Loo peas 


DCBDEBAD ICQFIRST 


DCBIOBA 








IOBNIOBA 1OB 





| ee 


SP253 | 







IOBNIOBA 
‘SAMB’ is 

in EBCDIC 
1OB 





1OB used by 
EXCPVR 


10 
IOBSTART 









Channel 





IOBNIOBA 1OB 


Program 





Figure 38. Control Blocks Used with EXCPVR Processing 
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APPENDIX A. BSAM/QSAM CHANNEL PROGRAMS 


C 


One real-address channel program is built in the SAMB. The 
channel program consists of a prolog Cat SAMPROLG) and one or 
more channel program segments Cat SAMCCW, which can contain a 
channel program of up to 27 CCWs). The channel program is 
chained from the prolog with a TIC (transfer in channel) 
command, and serves one of the IOBs on the active IOB queue 
Cpointed to by the ICQE). There are five types of channel 
program segments: 


Update-WRITE 

Update-WRITE followed by refi1l1l-READ 
Output Cwithout the track overflow option) 
Output (with the track overflow option) 


Input 


CHANNEL PROGRAM PROLOG SEGMENT 


The prolog CCWs are partially built during OPEN processing. The 
IOBSTART field Cin the SAMB's I0OB) points to the first prolog 
CCN to be processed (see Note 3, below) when the channel program 
is executed. 


For nonbuffered DASD devices, the following prefix is built. 
Note: The prolog channel program segment issues a search ID EQ 
CCW to locate either: 


~~ e The desired record to be read or updated, or 
e The record that immediately precedes the desired record to 
be read or updated (search previous logic). 


CCWF COMMAND CODE ADDRESS FLAGS COUNT 


PCCWl2 SET SECTOR SAMSECT cs 1 
PCCW1+62 Sector? 

PCCWN22 SEARCH ID EQ IOBSEEK+3 Cc 5 

PCCW3 TIC PCCW2 — —— 

PCCNG TIC SAMCCW2 —_ — 


For buffered DASD devices, the following prefix is built: 


CCWH COMMAND CODE ADDRESS FLAGS COUNT 
PCCWl Unused —= — 

PCCW2 Unused — — — 
PCCW3 LOCATE RECORD SAMLRPRM Cc 16 
PCCWG TIC SAMCCW = — 


IOBSTART points to PCCW3. 


For buffered DASD, all occurrences of (set sector), search id 
EQ, TICX¥-8 will be replaced by a located record. 
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FLAGS 
C Command chain 


> = SLI 


Notes: 


1 IOBSTART points to PCCWl if the device includes the 
rotational position sensing feature. Otherwise, IOBSTART 
points to PCCW2. 


< When the request is update-WRITE, the sector value is the 
farst byte of PCCW1's count field. Otherwise, it is the 
SAMSECT field. 


3 PCCN4 might branch (with a TIC) to a CCW other than the 
first CCW in SAMCCH: 


—-When a re-EXCPVR exit from the channel end/abnormal end 
appendage occurs, or 


—-When a return from the first entry to the abnormal end 
appendage occurs. 


UPDATE-WRITE CHANNEL PROGRAM SEGMENT 


The update-WRITE channel program segment is built to serve an 
update-WRITE-only request (that is, SAMBSWR in SAMFLAGI] is on). 
The channel program segment is built by the CCWBLDUP routine (Cin 
module IGGO19BX). Only one BSAM update-WRITE channel program 
segment is built in SAMCCW at a time. 


If the write validity option is not specified, the update-WRITE 
channel program is: 


CCW# COMMAND CODE ADDRESS FLAGS COUNT 


CCW WRITE DATA Buffer? cI? —= 
CCW2 NOP = S 1 
FLAGS 


C = Chain command 


> = SLI 

I = Indirect addressing 

Note: 

2 If the data set resides on a VIO device or if the user's 


buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


If the write validity check option is specified and the data set 


being accessed is not a track overflow data set, the 
update-WRITE channel program is: 
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CCWwe COMMAND CODE ADDRESS FLAGS COUNT 
CCW1 WRITE DATA Buffer? cI? — 
CCN2 SEARCH ID EQ IOBSEEKt+3 C 5 
CCW3 TIC CCW2 — —_ 
CCW4 READ KEY DATA 0 CSK X'7FFF® 
CCW5 NOP —_— S — 
WITH ROTATIONAL POSITION SENSING 

CCW COMMAND CODE ADDRESS FLAGS COUNT 
CCWl WRITE DATA Buffer? CI? —_— 
CCW2 READ SECTOR PCCW1+6< cs 1 
CCN3 SET SECTOR? PCCW1+62 CS 1 
CCW4 SEARCH ID EQ? IOBSEEK+3 C 5 
CCW5 TIc# CCN4 aa —_— 
CCW6 READ KEY DATA 0 CSK X*7FFF* 
CCW7 NOP = S aaa 
FLAGS 

C = Chain command 

S = SLI 

K = Skip 

I = Indirect addressing 

Notes: 

i If the data set resides on a VIO device or if the user's 


buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


PCCW1l is the prolog channel program segment's first CCW, a 
set-sector command. 


S For buffered DASD, CCWs 3, 4, and 5 will be replaced by the 
following: 


| CCW3 | LOCATE RECORD | SAMLRPRM+16 | C | 16 | 


some of the data records of a track overflow data set are 
written using write special CKD CCWs. Consequently, the 
direct-access device automatically switches to the next track 
and cylinder when the end of each track overflow record segment 


_Cexcept the last) is detected during a write data or read data 
CCW. If the WRITE validity option is specified and a track 


overflow data set 1s being accessed, the update-WRITE channel 
program 1S: 
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WITHOUT ROTATIONAL POSITION SENSING 


CCW COMMAND CODE ADDRESS FLAGS COUNT 
CCW] WRITE DATA Buffer? CI? — 
CCW2 SEEK HEAD IOBSEEK+1 Cc 6 

NOP 3 CS 1 
CCW3 SEARCH ID EQ IOBSEEK+3 C 5 
CCW4 TIC CCW3 a — 
CCW5 READ KEY DATA 0 CSK X*FFF® 
CCN6 NOP = ) 1 


WITH ROTATIONAL POSITION SENSING 





CCWwe COMMAND CODE ADDRESS FLAGS COUNT 
CCWl WRITE DATA Buffer? CI? — 
CCW2 SEEK HEAD IOBSEEK+1 C 6 

NOP¢ aT CS 1 
CCW3 SET SECTOR PCCW1+64 CS 1 
CCN4 SEARCH ID EQ? IOBSEEK+3 C 5 
CCH5 TIC? CCN4 = <— 
CCW6 READ KEY DATA 0 CSK X*7FFF® 
CCW7 NOP — ) 1 
FLAGS 


C = Chain command 
S = SLI 
K Skip 


I = Indirect addressing 
Notes: 


1 If the data set resides on a VIO device or if the user's 
buffer is ina V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


2 The seek head command is part of the channel program if the 
DEB extent file mask permits head seeks. Otherwise, the 
seek head command is replaced with a NOP command. 


3 For buffered DASD, CCWs 3, 4, and 5 will be replaced by the 
following: 


| CCW3 | LOCATE RECORD | SAMLRPRM+16 | C | 16 | 


4 PCCWl is the prolog channel program segment's first CCW, a 
set sector command. 


D -WRITE LLOWED REFILL-READ CHANNEL PROGRAM SEGMEN 


The update-WRITE followed by refill-READ channel program segment 
is built to serve a request that updates a record and then reads 
a subsequent record (not necessarily the next sequential record) 
into the buffer. This type of request is indicated with the 
SAMPUTX bit in SAMFLAG]1 set on. The segment is built by the 
CCWBLDUP and CCWBLDIP routines Cin module IGGO1L9BX). 


Only one update-WRITE followed by a refill-READ channel program 
segment is built in SAMCCW at a time. 
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If the write validity check option is not specified, the 
update-write followed by refill-read channel program segment is: 


WITHOUT ROTATIONAL POSITION SENSING 


CCW COMMAND CODE ADDRESS FLAGS 


COUNT 

CCWl WRITE DATA Buffer? CI? —= 
CCW2 SEEK HEAD SAMSEEK+1 C 6 

NOP? =< CS 1 
CCW3 SEARCH ID EQ SAMSEEK+3 C 5 
CCN4 TIC CCW3 = = 
CCW5 READ KEY DATA? 0 CSK X'7FFF* 
CCW6 M/T READ COUNT“ SAMCNTS? C 8 
CCW7 READ DATA Buffer? Ci*s* == 
CCW8 M/T READ COUNT SAMCNTS? C 8 
CCW9 NOP — 3 1 
WITH ROTATIONAL POSITION SENSING 
CCN? COMMAND CODE ADDRESS FLAGS COUNT 
CCW] WRITE DATA Buffer? CI? — 
CCW2 SEEK HEAD2 SAMSEEK+1 Cc 6 

NOP =< CS 1 
CCW3 SET SECTOR’ SAMSECT CS 1 
CCW4 SEARCH ID EQ’ SAMSEEK+3 C 5 
CCW5 TIC? CCW4 = = 
CCW6 READ KEY DATA 0 CSK X'7FFF® 
CCW7 M/T READ COUNT“ SAMCNTS? C 8 
CCW8 READ DATA Buffer? Ci*s? == 
CCW9 M’T READ COUNT SAMCNTS C 8 
CCW10 READ SECTOR SAMSECT S 1 
FLAGS 


C = Chain command 


S = SLI 
K = Skip 
I = Indirect addressing 


Notes: 
i If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


The seek head command is part of the channel program if the 
DEB extent file mask permits head seeks. Otherwise, the 
seek head command is replaced with a NOP command. 


3 The read key data CCW is part of the channel program only 
when search previous logic is required for a track-overflow 
data set. Otherwise, the CCW is omitted. 


The M/T read count. CCW is part of the channel program only 
when search previous logic is required for the data set 
Ceither a track-overflow data set or not). Otherwise, the 
CCW is omitted. 
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3 The count field used in this CCW is one of the 14 eight-byte 
fields in SAMCNTS Cin the SAMB control block), and is 
different from other SAMCNTS count fields used by other CCWs 
in the channel program. 


6 The SLI flag is set to 1 if the record format is variable 
length (that is, RECFM=V). The SLI flag is also set to l 
if: 

e The record format is not fixed-length records written as 
standard blocks CRECFM=FS or RECFM=FBS), and 
e The data set is not a track-overflow data set (RECFM=T). 


7 For buffered DASD, CCWs 3, 4%, and 5 will be replaced by the 
following: 


| CCW3 | LOCATE RECORD | SAMLRPRM+16 | C | 16 | 


If the WRITE validity check option is specified and the data set 
being accessed is not a track overflow data set, the 
update-WRITE channel program segment is: 


WITHOUT ROTATIONAL POSITION SENSING 


Ccwt COMMAND CODE ADDRESS FLAGS COUNT 
CCWl WRITE DATA Buffer? CI?. =— 
CCWN2 SEARCH ID EQ IOBSEEK+3 C 5 
CCW3 TIC CCN4 —— — 
CCNG READ KEY DATA 0 CSK X*7FFF® 
CCW5 SEEK HEADé SAMSEEK+1 C 6 
NOP2 a cS l 
CCW6 SEARCH ID EQ SAMSEEK+3 Cc 5 
CCW7 TIC CCW6 — — 
CCHS M‘T READ COUNT? SAMCNTS“* 8 
CCW9 READ DATA Buffer? cI?7s?> — 
CCW10 M/T READ COUNT SAMCNTS“* Cc 8 
CCW1l1 NOP — ars l 
WITH ROTATIONAL POSITION SENSING 
CCWH COMMAND CODE ADDRESS FLAGS COUNT 
CCWl WRITE DATA Buffer? cI? —_— 
CCN2 READ SECTOR PCCW1+t+6° CS l 
CCW3 SET SECTOR PCCW1+6° cS l 
CCHS SEARCH ID EQ IOBSEEK+3 Cc 5 
CCW5 TIC CCNS4 Se a 
CCW6 READ KEY DATA 0 CSK X*7FFF® 
CCW7 SEEK HEADé SAMSEEKt1 Cc 6 
NOP@ ae cs 1 
CCW8 SET SECTOR’ SAMSECT CS 1 
CCW9 SEARCH ID EQ’ SAMSEEK+3 C 5 
CCW10 TIC’ CCW9 == — 
CCW11 M‘T READ COUNT? SAMCNTS“ 8 
CCH12 READ DATA Buffer? cr14s5 — 
CCW13 M/T READ COUNT SAMCNTS* C 8 
CCW14 READ SECTOR SAMSECT S l 
FLAGS 
C = Chain command 
S = SLI 
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K = Skip 

I = Indirect addressing 

Notes: 

3 If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 

2 The seek head command is part of the channel program if the 


DEB extent file mask permits head seeks. Otherwise, the 
seek head command is replaced with a NOP command. 


3 The M“T read count. CCW is part of the channel program only 
when search previous logic is required. Otherwise, the CCW 
is omitted. 


“ The count field used in this CCW is one of the 14 eight-byte 
fields in SAMCNTS (Cin the SAMB control block), and is 
different from other SAMCNTS count fields used by other CCWs 
in the channel program. 


3 The SLI flag is set to 1 if the record format is 
variable-length (that is, RECFM=V). The SLI flag is also 
set to 1 if the record format is not fixed-length records 
written as standard blocks CRECFM=FS or RECFM=FBS). 


PCCWl is the prolog channel program segment's first CCW, a 
set-sector command. 


7 For buffered DASD, CCWs 8, 9, and 10 will be replaced by the 
following: 


| CCW3 | LOCATE RECORD | SAMLRPRM+16 | C | 16 | 


Some of the data records of a track-overflow data set are 
written using write special CKD CCWs. Consequently, the 
direct-access device automatically switches to the next track 
and cylinder when the end of each track-~overflow record segment 
Cexcept the last) is detected during a write data or read data 
CCW. If the WRITE validity check option is specified and a 
track-overflow data set is being accessed, the update-WRITE with 
refill READ channel program segment is as follows: 


WITHOUT ROTATIONAL POSITION SENSING 


CCH# COMMAND CODE ADDRESS FLAGS COUNT 
CCW] WRITE DATA Buffer? cr? == 
CCW2 SEEK HEAD IOBSEEK+1 C 5 

NOP@ — CS 1 
CCW3 SEARCH ID EQ ITOBSEEK+3 C 5 
CCN4 TIC CCWS —— —— 
CCW5 READ KEY DATA 0 CSK X'*7FFF® 
CCWN6 SEEK HEAD SAMSEEK+1 C 6 

NOP2 <= CS 1 
CCW7 SEARCH ID EQ SAMSEEK+3 C 5 
CCHS TIC CCW7 == — 
CCW9 READ KEY DATA? 0 CSK X"'7FFF® 
CCW10 M/T READ COUNTS SAMCNTS*% C 8 
CCW1l1 READ DATA Buffer? CI*s? = 
CCW12 M“T READ COUNT SAMCNTS* C 8 
CCW13 NOP — =— 1 
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WITH ROTATIONAL POSITION SENSING 





COUNT 2 


CCW COMMAND CODE ADDRESS FLAGS 
CCW1 WRITE DATA Buffer? CI? — 
CCW2 SEEK HEAD - IOBSEEK+1 C 6 

NOP = CS 1 
CCW3 SET SECTOR PCCW+6® CS 1 
CCN4 SEARCH ID EQ IOBSEEK+S C 5 
CCW5 TIC CCN4 — = 
CCW6 READ KEY DATA 0 CSK X"*7FFF* 
CCW? SEEK HEAD? SAMSEEK+1 C 6 

NOP@ — CS 1 
CCWN8 SET SECTOR SAMSECT CS 1 
CCW9 SEARCH ID EQ SAMSEEK+3 Cc 5 
CCW10 TIC CCW9 = <= 
CCW11 READ KEY DATA? 0 CSK X*7FFF* 
CCW12 M’“T READ COUNT? SAMCNTS* C 8 
CCW13 READ DATA Buffer? Ci43*) = 
CCW14 M“T READ COUNT SAMCNTS* C 8 
CCW15 READ SECTOR SAMSECT S 1 
FLAGS 


C = Chain command 
S SLI 
K Skip 


I = Indirect addressing 


Notes: ) 
1 


If the data set resides on a VIO device or if the user's 
buffer is ina V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


2 The seek head command is part of the channel program if the 
DEB extent file mask permits head seeks. Otherwise, the 
seek head command is replaced with a NOP command. 


3 The read key data and M/T read count. CCWs are part of the 
channel program only when search previous logic is required. 
Otherwise, these two CCWs are omitted. 


4 The count field used in this CCW is one of the 14 eight-byte 
fields in SAMCNTS Cin the SAMB control block), and is 
different from other SAMCNTS count fields used by other CCWs 
in the channel program. 


3 The SLI flag is set to 1 if the record format is 
variable-length (that is, RECFM=V). 


6 PCCWl is the prolog channel program segment's first CCW, a 
set sector command. 


OUTPUT CHANNEL PROGRAM SEGMENT (TO WRITE OUTPUT RECORDS THAT ARE NOT TRACK OQVERFLO 
RECORDS } 


The output channel program segment is built to serve a request 

that writes an output record to a data set that is nota 

track-overflow data set. Output channel program segments can be 

chained together to write successive records to the data set. | 
The output channel program segment is built by the CCWBLDOP 

routine Cin module IGGO19BX). 
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If t 
chan 


he write validity check option is not specified, the output 
nel program segment is: 


WITHOUT ROTATIONAL POSITION SENSING 


CCWH COMMAND CODE ADDRESS FLAGS COUNT 

CCWl WRITE CKD SAMCNTS? CD 8 

CCW2 Buffer CcI@ —_ 

CCW3 NOP = S | 

WITH ROTATIONAL POSITION SENSING 

CCWH COMMAND CODE ADDRESS FLAGS COUNT 

CCr1 WRITE CKD SAMCNTS# CD g 

CCW2 Buffer cIé — 

CCW3 READ SECTOR SAMSECT S 1 

FLAGS 

C = Chain command 

S = SLI 

D = Chain data 

I = Indirect addressing 

Note: 

i The count field used in this CCW is one of the 14 oe: byte 
fields in SAMCNTS Cin the SAMB control block), and i 
different from other SAMCNTS count fields used by thee CCWs 
in the channel program Cunless otherwise noted). 

< If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 

If the WRITE validity check option is specified, the output 

channel program segment is: 

WITHOUT ROTATIONAL POSITION SENSING 

CCwus COMMAND CODE ADDRESS FLAGS COUNT 

CCWl WRITE CKD SAMCNTS? CD 8 

CCW2 Buffer ciIé — 

CCW3 SEARCH ID EQ SAMCNTS? Cc 5 

CCWG4 TIC CCW3 —_ — 

CCW5 READ KEY DATA 0 CSK X*7FFF* 

CCWN6 NOP — S 1 
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WITH ROTATIONAL POSITION SENSING 


CCW# COMMAND CODE ADDRESS FLAGS COUNT 

CCWl1 WRITE CKD SAMCNTS!? CD 8 

CCW2 Buffer? ClIé —_— 

CCW3 READ SECTOR SAMSECT cS 1 

CCW4 SET SECTOR SAMSECT cs 1 

CCW5 SEARCH ID EQ SAMCNTS? C 5 

CCH6 TIC CCN5 —_— —_ 

CCW7 READ KEY DATA 0 CSK X'*7FFF® 

CCW8 READ SECTOR SAMSECT S 1 

WITH BUFFERRED DASD 

CCWF COMMAND CODE ADDRESS FLAGS COUNT 

CCWl WRITE CKD SAMCNTS! CD 8 

6 e oe BUFFER CI — 

@ i) @ @ e 

e@ e e e e 

CCWn [MT] WRITE CKD SAMCNTS? CD 8 
BUFFER CI — 

CCWn READ SECTOR SAMSECT sy 1 

CCWn LOCATE RECORD SAMLRPRM+16 C 16 

CCWn [MT] READ KEY DATA 0 CSK X'7FFF* 

e e e e 6 

@ e @ @ e 

e ] e e 6 

CCWn [MT] READ KEY DATA 0 SK X'7FFF® 

FLAGS 

C = Chain command 

S = SLI 

K = Skip 

D = Chain data 

I = Indirect addressing 


Notes: 


1 The count field used in this CCW is one of the 14 eight-byte 
fields in SAMCNTS Cin the SAMB control block), and is 
different from other SAMCNTS count fields used by other CCWs 
in the channel program Cunless otherwise noted). 


If the data set resides on a VIO device or if the user's 
buffer is ina V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


3 The SAMCNTS field is the same one used by CCW1, the first 
CCW in the channel program segment. 


The preceding output channel program segments can be chained 
together to write successive records all on one track. The last 
CCW (that is, the NOP or read sector CCW) of each channel 
program segment except the last is omitted: 
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CCWH COMMAND CODE ADDRESS FLAGS COUNT 
CCWl WRITE CKD SAMCNTS CD 8 Write first record 
CCW2 Buffer? CI? —_— 
CCW3 WRITE CKD SAMCNTS+8 CD 8 Write second 
record 
CCWG4 Buffer? cI? — 
CCW9. WRITE CKD SAMCNTS+32 CD 8 Write last record 
CCW10 Buffer? CI} — 
CCW1l NOP2 —_— S 1 
READ SECTOR@ SAMSECT S 1 

FLAGS 

C = Chain command 

S = SLI 

D = Chain data 

I = Indirect addressing 

Notes: 

1 If the data set resides on a VIO device or if the user's 
buffer is ina V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 

2 The read sector CCW is present if the device includes the 
rotational position sensing feature. Otherwise, the NOP CCW 
1s present. 

If the second Cor subsequent) record is to be written as record 

Rl on the next track, a multitrack search CCW orients the 

channel program: 

CCWF COMMAND CODE ADDRESS FLAGS COUNT 

CCW1 WRITE CKD SAMCNTS CD & Write first record 

CCW2 Buffer! cI} — 

CCW3* M/T SRCH ID EQ SAMCNTS+8# C 5 Locate record 0 of 
the next track 

CCN4G* TIC CCW3 — — 

CCN5 WRITE CKD SAMCNTS+16 CD 8 Write second 
record 

CCW6 Buffer? cI? —_— 

CCW1l1 WRITE CKD SAMCNTS+40 CD 8 Write last record 

CCW12 Buffer? cI} — 

CCW13 NOP? —_— S 1 

READ SECTOR? SAMSECT S 1 


FLAGS 


C= 


) 
D 
I 


Chain command 
SLI 
Chain data 


Indirect addressing 
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Notes: 
1 If the data set resides on a VIO device or if the user's 
buffer is ina V=R address space, the address field contains 


the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


é The field in SAMCNTS contains the CCHHR of the record to be 
written Crecord Rl) with R set to 0, causing a search for 
record zero on the next track. 


3 The read sector CCW is present if the device includes the 
rotational position sensing feature. Otherwise, the NOP CCW 
is present. 


4 CCW3 and CCW4 are present only when writing record Rl ona 
track when the record is not the first record written in the 
channel program. 


OUTPUT CHANNEL PROGRAM SEGMENT (TO WRITE TRACK OVERFLOW RECORDS ) 


The output channel program segment is built to serve a request 
that writes a record to a track-overflow data set. If the 
track-overflow record is segmented, output channel program 
poetaas are chained together to write all segments of the 
record. 


Module IGGO19T2 determines whether enough room remains on the 
track to write the record. If not, IGGO19T2 separates the 
track-overflow record into segments and determines the length of 
each segment. IGGO19T2 also determines whether the 
track-overflow record can be written in the extent's remaining 


space. 
Only one output record is written at a time, even though many 
output channel program segments are chained together to write 


all track overflow segments of the record. The track-overflow 
record output channel program is built by the CCWBLDOT routine 
Cin module IGGO19BX). 


If the record does not overflow to another track (that is, it 
fits entirely on the remaining space on the track) and the WRITE 
validity check option is not specified, the output channel 
program segment that writes the record is the same as described 
Previously for writing output records that are not 
track-overflow records. 


If the record does not overflow and the WRITE validity option is 
sige g ape the output channel program segment that writes the 
record is: 


WITHOUT ROTATIONAL POSITION SENSING 


CCWwH COMMAND CODE ADDRESS FLAGS COUNT 
CCW1 WRITE CKD SAMCNTS CD 8 
CCWN2 Buffer? CI} — 
CCW3 SEEK HEAD@ SAMCNTS2 Cc 6 

NOPé — Cc ] 
CCW4 SEARCH ID EQ SAMCNTS? Cc 5 
CCW5 TIC CCNG — — 
CCW6 READ KEY DATA 0 CSK X"7FFF* 
CCW7 NOP — S 1 
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WITH ROTATIONAL POSITION SENSING 


CCWR COMMAND CODE ADDRESS FLAGS COUNT 
CCWl WRITE CKD SAMCNTS CD 8 
CCW2 Buffer} cI? — 
CCW3 SEEK HEADé SAMCNTS2 Cc 6 

NOPé — Cc 1 
CCNG4 SET SECTOR CCN4+6 CS Sector*|1 
CCW5 SEARCH ID EQ SAMCNTS?4 C 5 
CCH6 TIC CCW5 — —_— 
CCW7 READ KEY DATA 0 CSK X"7FFF* 
CCW8 READ SECTOR SAMSECT S 1 


Notes and Flags explanation follow: 


FLAGS 

C = Chain command 

S = SLI 

K = Skip 

D = Chain data 

I = Indirect addressing 


Notes: 
1 If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


é The seek head command is part of the channel program if the 
DEB extent file mask permits head seeks (Calthough it has no 
effect in this case), the record doesn't overflow to another 
track. Otherwise, the seek head command is replaced with a 
NOP command. 


3 The SAMCNTS field is the same one used by the first 
segment's Write CCW (CCCW1). 


4“ The sector value is placed in the first byte of the CCW's 
count field. The sector value is the SAMSECT value if the 
first overflow record is written by this channel program. 
Otherwise, the sector value is 0 


If the track-overflow record consists of more than one segment 
(that is, it overflows to another track), one or more write 
special CKD CCWs are used to write the record. When the end of 
a record written with a write special CKD CCW is read, the 
direct-access device automatically switches to the next track or 
cylinder so that the entire record is read with one READ CCW. 


The first write special CKD CCW writes the record's count field 
and data on the remainder of the track: the track contains the 
record's first overflow segment. An M/T (multitrack) search ID 
equal CCW orients the channel program to the start of the next 
track or cylinder (that is, immediately after the count field of 
record 0). Subsequent write special CKD CCNs write 
track-overflow record segments that occupy the entire track. 

The record's last segment is written with a write CKD CCW, and 
occupies the first part of the track. 


If the WRITE validity option has been specified, a seek head 
CCW, a set sector CCN, and a search ID equal CCW reposition the 
direct-access device to read the record's first overflow 
segment. Because the overflow segments are written using write 
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CCW222 
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special CKD CCWs, the WRITE validity's read key data CCW reads 
all segments of the record: The direct-access device 
automatically switches tracks and cylinders when the end of each 
overflow segment is read. Note that the record's last segment 
is not an overflow segment and does not cause track switching. 


Before this channel program is built and issued, IGG019T2 has 
determined that the entire record can fit in the space available 
Cthat is, it can fit in the extent). When the track-overflow 
record cannot fit in the extent, IGGO19T2 directs the CCWBLDOT 
routine to build a channel program identical to the one shown 
below, except that all write special CKD and write CKD CCWs are 
replaced with erase CCWs. IGG019T2 waits until the ERASE 
channel program completes, then locates the data set's next 
extent. It next recalculates the length of each track-overflow 
segment to be written and directs the CCWBLDOT routine to build 
a channel program that writes the complete record. 


COMMAND CODE ADDRESS FLAGS COUNT 

WRITE SPCL CKD SAMCNTS CD 8 Write record's first 
overflow segment. 

Buffer? CI} — 

M/T SRCH ID EQ SAMCNTS Cc 5 Switch to next 
track. 

TIC CCh3 —_— — 

WRITE SPCL CKD SAMCNTS CD 8 Write record's 
second overflow 
segment. 

Buffer? CI} — 

M/T SRCH ID EQ SAMCNTS+32 C 5 Switch to next 
track. 

TIC CCW15 —= ees 

WRITE CKD SAMCNTS+32 CD 8 Write record's last 
segment. 

Buffer? cI} — 

SEEK HEAD SAMCNTS?2 C 6 Reposition to 
record's first 
segment. 

SET SECTOR“ CCN4+6 CS Sector? |? 

SEARCH ID EQ SAMCNTS2 C 5 

TIC CCW5 — scans 

READ KEY DATA 0 CSK X*7FFF* Write validity 
check. 

READ SECTOR‘ SAMSECT S 1 

NOP4 — S 1 

FLAGS 

C = Chain command 

S = SLI 

D = Chain data 

I = Indirect addressing 

Notes: 

1 If the data set resides on a VIO device or if the user's 


buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


2 CCW19 through CCW23 are included in the channel program when 
the write validity check option is specified. Otherwise, 
CCW19 through CCW23 are omitted. 
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3 


The SAMCNTS field is the same one used by the first write 
CCW (CCW1). 


The read sector CCW is present if the device includes the 
rotational position sensing feature. Otherwise,'CCW20 is 
omitted and is not replaced with a NOP CCW, and CCW24 is 
replaced with a NOP CCW. 


The sector value is placed in the first byte of the CCW's 

count field. The sector value is the SAMSECT value if the 
first overflow record is written by this channel program. 

Otherwise, the sector value is 0. 


INPUT CHANNEL PROGRAM SEGMENT 


The input channel program segment is built to serve a request to 
read all segments of a record. The channel program segment 
reads records of data sets opened for UPDAT, INPUT, INOUT, and 
OUTIN processing. Input channel program segments can be chained 
together to read more than 1 record. The input channel program 
segment is built by the CCWBLDIP routine Cin module IGGO19BX). 
Note: The prolog channel program segment issues a search ID EQ 
CCW to orient to either: 


The record to be read, or 


The record immediately preceding the record to be read 
(search previous logic). 


When the prolog's search CCW locates the record to be read, 
the input channel program segment is: 


CCwH COMMAND CODE ADDRESS FLAGS COUNT 

CCWl READ DATA} Buffer? cl-s? — 

CCN2 M“T READ COUNT‘ SAMCNTS? C 8 

CCW3 READ SECTOR® SAMSECT S 1 
NOP® — S ] 

FLAGS 

C = Chain command 

S = SLI 

I = Indirect addressing 

Notes: 


1 


If the record has a Key area and the key is to be read (BSAM 
only), the read key data CCW is used instead of the read 
data CCW. 


If the data set resides on a VIO device or if the user's 
buffer is ina V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


The SLI flag is set to 1 if the record format is 
Mei are arid (that is, RECFM=V). The SLI flag is also 
se oO if: 


e The record format is not fixed-length records written as 
standard blocks CRECFM=FS or RECFM=FBS), and 


e The data set is not a track-overflow data set CRECFM=T). 
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CCW2 and CCW3 read the count field and the sector value of 
the next sequential record. (The next record might be on 
the same track, or it might be record 1 on the next track, 
next cylinder, or next extent.) When the user's program 
requests the next input record, the prolog's search CCW can 
locate it—minimizing the number of times search-previous 
logic is required. 


The count field used in this CCW is one of the 14 eight- byte 
fields in SAMCNTS Cin the SAMB control block), and is 
different from other SAMCNTS count fields used by other CCWs 
in the channel program. 


The read sector CCW is present if the device includes the 
rotational position sensing feature. Otherwise, the NOP CCW 
is present. 


lihen the prolog's search CCW locates the record immediately 
preceding the record to be read and the data set being accessed 
is not a track-overflow data set, the input channel program 
segment is: 


CCW#R COMMAND CODE ADDRESS FLAGS COUNT 

CCWl1 M/T READ COUNT SAMCNTS!} C 

CCW2 READ DATA4 Buffer? CcI#s* — 

CCW3 M’T READ COUNT®> SAMCNTS? C & 

CCNG READ SECTOR® SAMSECT S ] 
NOP® —_— S 1 

FLAGS 

C = Chain command 

S = SLI 

I = Indirect addressing 

Notes: 


1 
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The count field used in this CCW if one of the 14 oe byte 
fields in SAMCNTS Cin the SAMB control block), and i 

different from other SAMCNTS count fields used by other CCWs 
in the channel program. 


If the record has a key area and the key is to be read (BSAM 
lg read key data CCW is used instead of the read 
ata 


If the data set resides on a VIO device or if the user's 
buffer is ina V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


The SLI flag is set to 1 if the record format is 
variable-length (that is, RECFM=V). The SLI flag is also 
set to 1 if the record format is not fixed-length records 
written as standard blocks (CRECFM=FS). 


CCW3 reads the count field of the next sequential record. 
(The next record might be on the same track, or it might be 
record one on the next track, next cylinder, or next 
extent.) When the user's program requests the next input 
record, the prolog's search CCW can locate it—minimizing 
the number of times search-previous logic is required. 


The read sector CCW is present if the device includes the 


rotational position sensing feature. Otherwise, the NOP CCW 
1s present. 
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Some of the data records of a track-overflow data set are 
written using write special CKD CCWs. Consequently, the 
direct-access device automatically switches to the next track 
and cylinder when the end of each track-overflow record segment 
is read with a read data or read key data CCW. When the 
prolog's search CCW locates the record immediately preceding the 
required record (that is, search-previous logic is used) and a 
track-overflow data set is being read, the input channel program 
segment is: 


CCWH COMMAND CODE ADDRESS FLAGS COUNT 

CCWl READ KEY DATA 0 CSK X"*7FFEF® 

CCW2 M/T READ COUNT SAMCNTS2 Cc 8 

CCW3 READ DATAé Buffer #4 cIss* — 

CCW4 M/T READ COUNT: SAMCNTS? Cc 8 

CCW5 READ SECTOR® SAMSECT S 1 
NOP® —_— S 1 

FLAGS 

C = Chain command 

S = SLI 

K = Skip 

I = Indirect addressing 

Notes: 


1 The count field used in this CCW is one of the 14 eight- byte 
fields in SAMCNTS Cin the SAMB control block), and is 
different from other SAMCNTS count fields used by other CCWs 
in the channel program. 


2 If the record has a key area and the key is to be read (BSAM 
only), ria read key data CCH] is used instead of the read 
data CC 


3 If the data set resides on a VIO device or if the user's 
buffer is in a V=R address space, the address field contains 
the virtual-storage buffer address and no IDA flag is set. 
Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


4 The SLI flag is set to 1 if the record format is variable 
length (that is, RECFM=V). 


5 CCH4 reads the count field of the next sequential record. 
(The next record might be on the same track, or it might be 
record one on the next track, next cylinder, or next 
extent.) When the user's program requests the next input 
record, the prolog's search CCW can locate it—minimizing 
the number of times search-previous logic is required. 


6 The read sector CCW is present if the device includes the 
rotational position sensing feature. Otherwise, the NOP CCW 
is present. 


An example of a channel program that reads five records when 
search-previous logic is required to locate the first record is: 
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DATA SET INCLUDES THE TRACK-OVERFLOW OPTION 
CCw# COMMAND CODE ADDRESS FLAGS COUNT >) 
CCWl READ KEY DATA 0 CSK X"*7FFF* Search previous 

track to locate 

first record. 
CCW2 M’T READ COUNT SAMCNTS C 8 
CCW3 READ DATA! Buffer? c1*s* — Read first record. 
CCN4 M‘T READ COUNT SAMCNTS+8 C 8 
CCW5 READ DATA! Buffer? c1*#s? — Read second record. 
CCN6 M“T READ COUNT SAMCNTS+4+16 C % 
CCN11 READ DATA! Buffer2 CI2ss — Read last record. 
CCW12 M’T READ COUNT SAMCNTS+40 C 8 
CCW13 ae SECTOR“ SAMSECT 2 : 

0 ——a 


DATA SET DOESN'T INCLUDE THE TRACK-OVERFLOW OPTION 


CCWH 
CCW1 
CCW2 
CCW3 
CCW4 
CCW5 
CCW 
CCW1 
CCW 


FLAG 
C 
Ss = 
K 
I 
Note 


1 
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COMMAND CODE ADDRESS FLAGS COUNT 
M“T READ COUNT SAMCNTS Cc 8 Locate and read 
first record. 
READ DATA Buffer@ cI*#s? — 
M/“T READ COUNT SAMCNTS+8 Cc & 
READ DATA! Buffer? c1*s? — Read second record. 
M/7T READ COUNT SAMCNTS+16 Cc 8 
0 READ DATA? Buffer CI2ss — Read last record. 
l M’“T READ COUNTS SAMCNTS+40 c § 
3 READ SECTOR‘ SAMSECT S 1 
NOP“ — S 1 ) 
S 
Chain command 


SLI 

Skip 

Indirect addressing 
Ss 


If the record has a Key area and the Key is to be read (BSAM only), the read key 
data CCW is used instead of the read data CCW. 


If the data set resides on a VIO device or if the user's buffer is in a VER 
address space, the address field contains the virtual-storage buffer address and 
no IDA flag is set. Otherwise, the address field contains the address of an IDA 
list and the IDA flag is set. 


The SLI flag is set to 1 if the record format is variable length (that is, 
Bee ae the record format is not variable length, the SLI flag is also 
se o if: 


° The record format is not fixed-length records written as standard blocks 
CRECFM=FS or RECFM=FBS), and 


e The data set is not a track-overflow data set CRECFM=T). 


The read sector CCW is present if the device includes the rotational position ») 
sensing feature. Otherwise, the NOP CCW is present. ) 


MVS/XA SAM Logic LY26-3967-0 © Copyright IBM Corp. 1977,1985 


Contains Restricted Materials of IBM 
Licensed Materials -——~ Property of IBM 


5 Each M/T read count CCW reads the count field of the next sequential record. 
(The next record might be on the same track, or it might be record one on the 
next track, next cylinder, or next extent.) When the user's program requests 
the next input record, the prolog's search CCW can locate it——minimizing the 
number of times search-previous logic is required. 


When the BFTEK=R option is specified to read a BDAM data set and search-previous 
logic is required, an input channel program segment is built to read only the 
record's count field (needed for offset READ processing). This channel program 
segment is not chained to another input channel program segment. 


CCWs COMMAND CODE ADDRESS FLAGS COUNT 
CCW1 M/T READ COUNT SAMCNTS C 8 
CCW2 READ SECTOR? SAMSECT S I 

NOP? — 3 1 
FLAGS 


C = Chain command 


S = SLI 
Note: 
i The read sector CCW is present if the device includes the 


rotational position sensing feature. Otherwise, the NOP CCW 
is present. 
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APPENDIX B. BSAM (BDAM CREATE) CHANNNEL PROGRAMS 


Channel Program for Erase CCWs for BSAM Load Mode, Track Overflow (IGG0191M) 


WITHOUT ROTATIONAL POSITION SENSING 


CCWS COMMAND CODE ADDRESS FLAGS COUNT 
CCWl1?2 SCH ID EQ CCW10 Cc 5 
CCW2 TIC xX-8 

CCW3 WRT DATA CCW10 CS 7 
CCH4 SCH ID EQ CCW10 C 5 
CCW5 TIC X-8 

CCW6 RD DATA CSK 8 
CCW7 ERASE CCW7 CS 8 
CCW8 M/T RD HA Cc 5 
CCW9 TIC CCWl 

CCW10 RO ADDR = 

WITH ROTATIONAL POSITION SENSING 

Ccws COMMAND CODE ADDRESS FLAGS COUNT 
CCW1?2 SET SECTOR SECTOR=0 C l 
CCW2 SRCH ID EQ CCW13 Cc 5 
CCW3 TIc ¥-8 

CCN4 WRT DATA CCW13 CS 7 
CCW5 SET SECTOR SECTOR=0 C 1 
CCW6 SCH ID EQ CCW13 C 5 
CCW7 TIC ¥-8 

CCW8 RD DATA CSK 8 
CCW9 ERASE CCW9 cS 8 
CCW10 SET SECTOR SECTOR=0 C l 
CCWll M/T RD HA C 5 
CCW12 TIC CCWl 

CCW13 RO ADDR CCHHO0000 

FLAGS 

C = Command Chain 

S = SLI 

K = Skip 

Note: 


1 Address of CCWl is stored in DCBEOBW. 
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Channel Program for BSAM Load Mode, Track Overflow (IGG0191M) 


WITHOUT ROTATIONAL POSITION SENSING 


CCWF 


CCW] 
CCW2 
CCWS3 
CCW4 
CCH5!? 
CCW6 


FLAGS 


COMMAND CODE 
SCH ID EQ 
TIC 

WRT CKD 


TIC/NOP2 

SCH ID EQ 

TIC 

WRT DATA 

READ RO 

MT SCH ID EQ 
TIC 

WRT CKD 


TIC/NOP@ 

SCH ID EQ 

TIC 

WRT DATA 

READ RO CWRITE 
CHECK) 

SEEK CYL 

SCH ID EQ 

TIC 

RD KD 


D = Data Chain 


C = Command Chain 


S = SLI 
K = Skip 
Notes: 


ADDRESS 
IOBSEEK.+3. 
¥x-8 
IOBDNRCFC1) 
CCW20 
IOBROCNTC1) 
¥-§ 
IOBRODATC1) 


IOBROCNT C2) 
xX— 
TOBDNRCFC2) 


CCW19 
IOBROCNT (2) 
¥-8 
IOBRODATC2) 
IOBSEEK.+1. 


IOBDNRCF(1) 
x-8 


FLAGS COUNT 


Cc 


KL+DL 


3 CCWs 5, 9, 14, and 18 are omitted if verify is not 
specified. 


é The TIC/NOP at CCW5 and CCW14 is set to NOP if Record 0 is 


to be written on this track. 


3 CCWs 10 through 18 are repeated as many times as are needed 


to write all segments. 
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Channel Program for Create BDAM (IGG0199L) 
WITHOUT ROTATIONAL POSITION SENSING 


CCWH COMMAND CODE ADDRESS 

CCWl SCH ID EQ IOBSEEK+3 

CCW2 TIC x-§ 

CCW3 WRT CKD JOBDNRCF 

CCWS4 WRT CKD CWRITE 
CHECK)? 

CCW5 SCH ID EQ IJOBDNRCF 

CCH6 TIC ¥-8 

CCW7 RD KD 

CCW8 SCH ID EQ IOBROCNT 

CCW9 TIC ¥-8 

CCW10 WRT DATA IOBRODAT 

CCW11 SCH ID EQ4 IOBROCNT 

CCW12 TIC ¥-8 

CCW13 RD DATA 

CCHW14 ERASE? ¥ 

FLAGS 

D = Data Chain 

C = Command Chain 

S = SLI 

K = Skip 

Notes: 


FLAGS 


COUNT 
5 


8 
K+BLKSIZE. 
5 


256 
5 


om ind 


1 CCWs 5 through 7 are omitted if write check is not 


specified. 


2 CCWs 11 through 13 are always generated for format-U and 


format-V records, 


or if write check 1s specified. 


3 CCW14 is generated for format-U and format-V records only. 
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Channel Program for Create BDAM (IGG0199L) 
( WITH ROTATIONAL POSITION SENSING 
CCWH COMMAND CODE ADDRESS FLAGS COUNT 
CCW1 SET SECTOR SECTORI C l 
CCN2 SCH ID EQ IOBSEEK+3 C 5 
CCW3 TIC ¥-8 
CCH4 WRT CKD IOBDNRCF D 8 
CCW5 WRT CKD C KL+BLKSIZE 
CCW6 RD SECTOR CWRITE SECTOR2 C 1 
CHECK)? 
CCW7 SET SECTOR SECTOR2 C 1 
CCW8 SCH ID EQ IOBDNRCF C 5 
CCW9 TIC ¥-8 
CCW10 RD KD CSK 256 
CCW1l1 SET SECTOR SECTOR=0 C 1 
CCW12 SCH ID EQ IOBROCNT C 5 
CCW13 TIC ¥-8 
CCW14 WRT DATA IOBRODAT C 8 
CCW15 SET SECTOR@ SECTOR2 C 1 
CCH16 SCH ID EQ IOBROCNT c 5 
CCW17 TIC ¥-8 
CCW18 RD DATA CSK 1 
CCW19 ERASE? ¥ S 8 
FLAGS 
D = Data Chain 
C = Command Chain 
S = SLI 
od K = Skip 
Notes: 


i CCWs 7 through 10 are omitted if write check is not 
specified. 


CCWs 15 through 18 are always generated for format-V and 
format-U records or if write check is specified. 


CCW19 is generated for format-U and format-V records only. 
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Channel Program for BSAM Load Mode, Track Overflow ( 
WITH ROTATIONAL POSITION SENSING 


CCWwe COMMAND CODE 
CCWl SET SECTOR 
CCW2 SCH ID EQ 
CCNS3 TIC 

CCNG WRT CKD 
CCWN5 00 

CCH6? TIC/NOP@ 
CCW7 SET SECTOR 
CCW38 SCH ID EQ 
CCW9 TIC 

CCW10 WRT DATA 
CCWl1ll SET SECTOR 
CCW1l2 READ RO 
CCH13 M/T SCH ID EQ 
CCW14 TIC 

CCW15 WRT CKD 
CCW16 

CCW17} TIC/NOP2 
CCW18 SET SECTOR 
CCHW19 SCH ID EQ 
CCW20 TIC 

CCW21 WRT DATA 
CCH22 SET SECTOR 
CCWH23 READ RO 
CCN24 RD SECTOR 
CCW25 SEEK CYL 
CCW26 SET SECTOR 
CCWN27 SCH ID EQ 
CCW28 TIC 

CCN29 RD KD 
FLAGS 

D = Data Chain 

C = Command Chain 

S = SLI 

K = Skip 

Notes: 


IGG0199M) 


ADDRESS 


SECTORI 
IOBSEEK+3 


¥-8 
IOBDNRCF(1) 


CCW24 
SECTOR=0 
IOBROCNTC1) 
¥-8 
IOBRODAT(1) 
SECTOR=0 


IOBROCNT C2) 
X— 
TOBDNRCFC(2) 


CCW24 
SECTOR=0 
IOBROCNTC2) 
¥-8 
IOBRODATC2) 
SECTOR=0 


SECTOR2Z 
IOBSEEK+1 
SECTOR1 
IOBDNRCF(1) 
X-8 


FLAGS COUNT 


C 
C 


“” 


A 


ROIS naga 9 ONNN NOON 


~” 
“~ 


1 
5 


8 
CCW24 


= 69 


16 


oOo wi 


CCW24 


we 


We Oe = = 00 


KL+DL 


1 CCWs 11, 12, 22, 23, and 25 through 29 are omitted if verify 


is not specified. 


2 The TIC/NOP at CCWN6 and CCW17 is set to NOP if Record 0 is 


to be written on this track. 
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INDEX 


[La] 


ABEND codes cross-reference table 246 


abnormal-end appendages 94 


access conditions for selecting modules 


See module selector 
access method options 
See module selector 
access method save area for user 
totaling 241 
address conversion routines 
full-to-relative address 162 
relative-to-full address 162 
ANS control character 
See control character 
ANSI 
See also ISO/ANSI 
and BUFFOF=L not specified 137 
appendages 
introduction to 68 
module selector 72 
types 
abnormal-end 94 
channel-end 82-94 
EXCPVR Processing 73 
Pagefix 70 
PCI 94 
SIO 70 
appendixes 
See Contents 
ASCII block prefix 3 
associated data set processing 
See also 3505/3525 
EOB modules 49 
associated data set processing, EOB 
modules 
See 3505/3525 


asynchronous—error-processing routines 


track overflow 
3211 Printer 67 


backspace 
BSP routine 157 
basic partitioned access method 
See BPAM 
basic sequential access method 
See BSAM 
BDAM-create CWRITE-load) 
CHECK routines’7 109 
stage 2 OPEN executors) 128 
Write modules 97 
BDW (block descriptor word) 35-37 
BLDL or FIND routines 
general description 16l 
in TRR 18l 
block descriptor word (BDW) 35-37 
block prefix, ASCII 3 
blocked records 
GET routines 
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simple-buffering 3 
update-mode (PUTX) 20 
PUT routines 
simple-buffering 27 
update-mode (PUTX) 38 


description of routines 116 

flow of control 196 

introduction to 1, 116 

relation to BSAM routines 1, 116 
eae to processing program l, 


residence of 117 
routines for 
convert MBBCCHRR 122, 162 
convert TTR 122, 162 
FIND 161 
STOW 158 
BSAM 


control blocks 242 
flow of control 196 
introduction to 1, 97 
module selector for 
appendages 68 
Check 106 
Control 108 
overview 187 
Read 98 
Write 98 
routines 
appendages’) 157 
Check 106 
Control 110 
end-of-block 38 
Read 97 
synchronizing-and-error 
processing 
Write 97 
BSAM/QSAM channel programs 
(Appendix B) 261 
BSP 
BSAM overview 187 
routine 157 
buffer alignment 148 
buffer empty (GET routines) 
simple-buffering 3 
update-mode 20 
buffer pool management 
FREEBUF (macro expansion) 150 
FREEPOOL (macro expansion) 150 
GETBUF (macro expansion) 150 
GETPOOL routine 8 
introduction 1, 148 
buffer ready for emptying (PUT routines) 
Simple buffering 7 
update mode, PUTX 20, 38 
buffering techniques 
GET routines 3 
PUT routines 27 
BUILD 
buffer pool management routine 148 
common access method routine 18/7 
BUILDRCD 
buffer pool management routine 150 
QSAM overview 
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card punch, 3525 
See 3505/3525 
card reader 8 
See also 3505/3525 
GET routines’ 10 
chained channel-program scheduling 
appendages 
PCI, channel end, abnormal 94 
end-of-block routines 135 
IOB prefix 49 
joining 
description of end-of-block 
routines 
introduction to 49 
Note/POINT routines 114 
parting (disconnecting) 94 
stage 2 OPEN executors) 128 
stage 3 OPEN executors) 135 
channel programs 
BSAM/QSAM CAppendix B) 261 
update CAppendix C) 280 
channel-end appendages 82 
character conversion 
See paper tape character conversion 
routines 
CHECK macro instruction 
BSAM/BPAM 189 
Check modules’ 107 
CHECK routines 
BSAM/BPAM 189 
descriptions 106 
CLOSE executors 141 
CLOSE macro instruction 
SAM overview 187 
CNTRL macro instruction 
BSAM control routines 110 
QSAM control routines 95 
common routines 
appendages 68 
buffer pool management 148 
executors 
SAM overview 187 
control blocks, relation of 
BSAM 242 
QSAM 242 
control character, end-of-block routines 
chained scheduling 47 
normal scheduling 40 
control modules 
selected and loaded by OPEN 
executor 109 
Control routines 
BSAM 110 
QSAM 95 
convert full-to-relative address 
routine 162 
convert record number to sector value 
routine 
convert relative-to-full address 
routine 162 
create-BDAM 
See BDAM-create 
cross-reference table, ABEND codes 246 
CSECT names Cas listed in the 
directory) 206 
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data areas 
access method save area 
for user totaling 241 
BSAM control blocks 242 
QSAM control blocks 242 
data operating mode 
Get module 5, 18 
Put module 27, 35 
data protection image, DPI 48 
See also 3505/3525 
EOB modules 40 
DCB relocation to protected work 
area 
decision tables 
See module selector 
DEVTYPE SVC routine 
general description 150, 154 
in TRR 181 
diagrams' 187-205 
directory module names 
DMABCOND macro 118 
DOS embedded checkpoint records 
See OS/DOS tape compatibility 
DPI, data protection image 48 
See also 3505/3525 
EOB modules 49 
dummy data set routine 117 
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empty buffer 
GET routines 
Simple-buffering 3-19 
update-mode 20 
PUT routines 
simple-buffering 27 
update-mode, PUTX 21 
end-of-block condition 
See end-of-block routines 
end-of-block routines, QSAM/BSAM 
chained channel-program 
scheduling 47 
flow of control 194 
INOUT or OUTIN 38 
PUT routines 28 
track overflow 57 
EODAD routine 
dummy data set 117 
EOV Cend-of-volume) routine 
BSAM Flow of Control 199 
erase routine, track overflow 155 
error option implementation 
SYNAD routines 164 
synchronizing and error processing 
routines 59 
EXCP processing with the 3800 printing 
subsystem (for the 3800 only) 40 
EXCPVR processing 73 
execution of channel programs 
scheduled by chaining (PCI 
appendage) 94 
executors, SAM 
control sequence 
Close 141 
OPEN executor 117 
flow of control for Open 190 
introduction to 
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general description 117 
Open 119 
relation to OQpen/Close/EOV 
support 117 
executors, SETPRT 
return codes 251 
executors, SETPRT (for the 3800 Printing 
Subsystem only) 168 
selection of (for the 3800 Printing 
Subsystem only) 168 
work area (for the 3800 Printing 
Subsystem only) 218 


Es 


FIND macro instruction 
C option (macro expansion) 161 
D option routine 161 
flow of control, diagrams for 
BPAM routines 196 
BSAM routines 196 
EOQV executors 
BSAM 199 
QSAM 198 
FEOV executor, QSAM 200 
JES Compatibility Interface routines 
general description 202 
QSAM routines 194 
SAM OPEN executors 191 
force close executors 146 
forward space 
control module 112 
FREEBUF macro instruction 
BSAM/BPAM 187 
macro expansion 150 
FREEPOOL macro instruction 
macro expansion 150 
SAM overview 187 
full buffer 
GET routines 
simple-buffering 3 
update-mode 20 
PUT routines 
See buffer ready for emptying 
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GET macro instruction 
GET routines 
introduction to GET routines 3 
GET routines 
buffering techniques 4 
introduction to 4 
Simple-buffering 4 
update mode 20 
GETBUF macro instruction 
BSAM/BPAM 187 
macro expansion 150 
GETPOOL 
buffer pool management routine 148 
common access method routine’ 187 
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If/0 interruption 

BPAM flow of control 196 

QSAM flow of control 194 

SAM overview 187 
IGGSPN—SETPRT work area (for the 3800 
Printing Subsystem only) 215 
IHASPP—SETPRT parameter list (for the 
3800 Printing Subsystem only) 237 
IMGLIB SVC routine 

general description 155 

in TRR 195-197 
INOUT mode 

end-of-block routines 38 

stage 2 OPEN executors) 128 
input processing routine, QSAM 19 
IOB Cinput/output block) SAM prefixes 

comparison for normal end 

chained-scheduling 47 

description 47 
ISO/ANSI/FIPS 

abend 139 

EOB 7, 8 

fixed block format 4 

Padding character ll, 

segment control word 3, 35, 37 

BN a 14, 17, 28, 50, 63, 
107 
spanned record format 3, 14, 17, 18, 
35, 37, 40, 50, 63, 107 

Variable length spanned records 2/7 

Variable spanned record format 132 
ISO/“ANSO 

segment control word 

conversion 18, 40 


JES Compatibility Interface Control 
See also SAM-SI 
BSAM processing module (SYSOUT) 110 
Check module CSYSIN) 106 
Close processing 201 
Open processing 201 
Overview 202 
QSAM processing module 15 
JES Compatibility Interface Control (See 
also SAM-SI) 203 
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logical record interface 
Get module 14 
Put module 32 
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macro expansion 
FIND (CC option) 161 
FREEPOOL 150 
GETBUF 150 
PRTOV 95 
MBBCCHRR, convert address routine 162 
message display module 
module name directory 206 
module selector 
appendages 72 
Check modules 106 
CLOSE executors 14] 
Control routines 
BSAM 1ll 
QSAM/BSAM 95 
end-of-block modules 
chained scheduling 49 
ordinary 
track overflow 57 
error processing modules 67 
Get modules 
update-mode 2] 
OPEN executors 
stage 1 119 
stage 2 129 
stage 3 136 
Put modules 
simple-buffering 26 
update-mode, PUTX 2] 
synchronizing and error processing 
modules 
Write-modules 98 
module selector table 
module type 
Cas listed in the directory) 206 
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name (module) directory 206 

new buffer 
See empty buffer PUT routines; full 
buffer GET routines 

new buffer segment CPUT routines) 
Simple-buffering 27 
update-mode (PUTX) 20 

next record (GET routines) 
Simple-buffering 4% 
update-mode 20 

non-rotational position sensing 

indicator 
See rotational position sensing, OPEN 

executors 

NOTE macro instruction 
BSAM control routines 110 
BSAM/BPAM overview 187 

NOTE/POINT routines 
BSAM control routines 110 
chained scheduling 115 
track overflow 115 
update mode 115 

NOTE, tape, relative addressing 
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OPEN executors, SAM 
for the 3800 Printing Subsystem (for 
the 3800 only) 125 
introduction to 119 
stage 1 119-127 
stage 2 128 
stage 3 135 
OPEN macro instruction 
general flow 190 
SAM overview 187 
OPTCD=J and the 3800 printer (for the 
3800 only) 51 
OPTCD=J and the 3800 printing subsystem 
(for the 3800 only) 42, 43, 51 
OPTCD=Z 
See search direct 
optical mark read 
See 350573525 
optional, access method 
See module selector 
OS/DOS tape compatibility 
appendages 
BSAM control routines 112 
GET routines 
synchronizing-and-error processing 
routines 
OUTIN mode 
end-of-block routines 38 
stage 2 OPEN executors 128 
overview, SAM 187 
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Pagefix Appendage /70 
parallel data address block 19 
parallel input processing routine 19 
parting chained channel-programs, 
appendage 
PCI appendages 94 
POINT macro instruction 
BSAM control routines 110 
BSAM/BPAM overview 187 
POINT routines 
See Note/POINT routines 
POINT, tape, relative addressing 
priming input buffers 
introduction to 
Simple-buffering 5 
update-mode 20 
stage 3 OPEN executor 135 
printer 
See 3211 printer, 1403 printer, or 
350573525 
printer overflow macro expansion 
CPRTOV) 95 
problem determination 153 
processing program 
relation to SAM routines 187 
using BPAM routines 116 
program controlled interruption, 
appendages 94 
program organization, diagrams for 
BPAM routines 9 
BSAM routines 189 
OPEN executors 190 
QSAM routines 188 
SAM routines 187 
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SAM-SI 203 
protected work area, 
to 118 
PRTOV macro instruction 
appendage 
BSAM 110 
end-of-block routines 
QSAM 95 
PUT macro instruction 
introduction to PUT routines 
PUT routines 25 
PUT routines 
simple-buffering 28 
update-mode (PUTX) 
PUTX macro instruction 
overview 187 
PUT routines 25 
PUTX routine 
simple-buffering 25 
update mode 
GET routine 21 
PUTX 38 
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QSAM 
control blocks 
control routines 
flow of control 191, 
introduction to l, 
module selector for 
Simple-buffering, 
simple-buffering, Put 25 
update-mode, Get 22 
update-mode, PUTX 22 
overview 187 
routines 
appendages 68 
Control 5 
end-of-block 38 
Get 3 
Put 25 
synchronizing~and-error-processing 
routines 59 
queued sequential access method 
See QSAM 
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RCE, read column eliminate 
See 350573525 
read column eliminate 
See 350573525 
READ macro instruction 
BSAM’BPAM 189 
Read routines 97 
Read routines 
BSAM/BPAM 189 
descriptions 97 
readback mode, GET routines 7, 10-13 
record descriptor word (RDW) 15, 18 
record number conversion to sector 
value 162 
RELSE macro instruction 
GET routines 4 
overview 187 
RELSE routines 


DCB relocation 


42 


25 


38 


242 
95 
194 


Get 7 


description (GET routines) 4 
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simple-buffering 4 
update mode 2 
return codes from SETPRT executors 
rotational position sensing CRPS) 
appendages 
channel-end 82, 83 
end-of-extent 72 


PCI 94 

SIO 79 
channel programs (Appendixes 
B,C, ) 61 


GET routines 


update mode 20 

OPEN executors 
introduction 118 
Read/WRITE routines 97 
stage 2 130 
stage 3 134 


RPS 
See rotational position sensing 


SAM 


common routines 
appendages’ 68 
executors 117 

effect of BLDLTAB 1 

force close executor 

introduction to 

overview 187 

SAM-SI (SAM subsystem interface) 
QSAM 


146 


146 


force close executor 
GET routine 
introduction to 1 

PUT routine 33 
synchronizing-and-error-— 


processing routine 63, 66 
SAM 
CHECK routines 107-110 
Read, WRITE routines’ 107 
scheduling 


See chained channel-program 
scheduling; end-of-block routines 
search direct COPTCD=Z) 
appendages 72 
channel programs (CAppendix B) 
stage 1 OPEN executors 
stage 3 OPEN executors 140 
search-previous auxiliary storage 
addressing 
seek address in QSAM update mode 21] 
segment descriptor word (SDW) 
GET routines 14-19, 25 
PUT routines 36 
sequential access method executors 
See executors, 
sequential access methods 
See 
SETDEV executor 168 
SETPRT 
executors 
return codes 251 
executors (for the 3800 Printing 
Subsystem only) 
general description 176 
selector (for the 3800 Printing 
Subsystem only) 168 
in TRR 180-185 


261 


1985 


251 
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parameter list (for the 3800 Printing 
Subsystem only) 237 
QSAM/BSAM overview 187 
routines 187-190 
work area, 3800 Printing Subsystem 
area in (for the 3800 Printing 
Subsystem only) 218 
simple buffering 
GET routines 4 
PUT routines 28 
SI0 appendages 70 
space magnetic tape 
BSP routine 157 
Control routine 112 
spanned records 
GET routines 14 
PUT routines 32 
stage 1 OPEN executors 
descriptions 118 
flow of control 191 
moeule selector 119 
stage 2 OPEN executors 
descriptions 128 
flow of control 192 
module selector 129 
stage 3 OPEN executors 
descriptions 135 
flow of control 193 
module selector 136 
start I70 (SIO) appendages 70 
STOW routines 8 
in TRR 181 
SVC routines 
descriptions 154 
directory entries 206 
SYNAD routine, FEOV executor 
QSAM operation for output data 
set 0 
SYNAD/EOV executor 
flow of control Coverview) 
BSAM 197 


QSAM 198 
SYNADAF/SYNADRLS routines 
general description 163 
in TRR 149, 182 
synchronize tape buffered data 
synchronizing-~and-error-processing 
routines 
asynchronous—error-processing 66 
introduction to 59 
QSAM 61 
track overflow 
general description 59 
3211 printer 
asynchronous—error-processing 6/7 


tape compatibility, OS/DOS 
appendages 
Control routines 112 
GET routines 
synchronizing-~and-error-processing 
routines 
task recovery routines (TRR) 
SVC 105-——-IMGLIB 185 
SVC 18-——-BLDL or FIND 180 
Svc 21—STOW 181 
SVC 24-——-DEVTYPE 181 
SvC 25—track overflow erase 181 
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SVC 68—SYNADAF/SYNADRLS 5 
SVC 69—BSP 183 
SVC 81-——-SETPRT 183 
track balance routine 
general description 155 
in TRR 181 
track erase routine 155 
track overflow 
abnormal end appendage 94 
create-BDAM write routine 103 
end-of-block routine 57 
Erase routine’ 156 
error processing routine 67 
in TRR 181 
introduction to 57 
stage 2 OPEN executors 129, 131 
TRUNC macro instruction 
overview 187 
PUT routines 28 
TRUNC routines 
description (PUT routines) 29 
simple-buffering 28 
TTR, convert address routine 162 


Lv ] 


UCS feature, printer 
stage 1 OPEN executors 119 
unblocked records 
GET routines 
simple-buffering 4-5 
update mode 0 
PUT routines 
simple-buffering 27 
universal character set 
See UCS feature, printer 
ee eager ee programs (Appendix 
2 


update mode 
appendages 
end-of-extent 68 
SIO 78-79 
CHECK routine 108 
GET routines 20 
Note/POINT routine 115 
PUTX routine 3 
Read/WRITE routine 100 
schedule buffer Cempty-and-refill or 
refill only) 20-22 
stage 2 OPEN executors) 130 
stage 3 OPEN executors 136 
synchronizing routine 61 
user totaling facility 
end-of-block modules 57 
stage 1 OPEN executors 119 
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WRITE macro instruction 
BSAM/BPAM 189 
WRITE routines 97 
WRITE routines 
BSAM/BPAM 189 
descriptions 97 
WRITE-load 
See BDAM-create 
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1403 Printer 
OPEN executor, stage 1 119 
2540 card read punch 
consideration of DCBBUFNO field 125 
3211 Printer 
asynchronous~—error-processing 
module 6/7 
OPEN executor, stage 1 119 
OPEN executor, stage 3 138 
synchronizing module 64 
3505/3525 (card reader, card punch) 
CLOSE executors 143 
control routine 96 
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EOB modules 40 
line control 96 
OPEN executor, stage 1 119 
OPEN executor, stage 2 129, 133 
print CEOB module) 44 
3525 card punch 
See 350573525 
3800 printing subsystem (for the 3800 
only) 
and EXCP (for the 3800 only) 42, 43 
and OPTCD=J (for the 3800 only) 42, 
43, 51, 52 
3800 Printing Subsystem (for the 3800 
Printing Subsystem 
area (for the 3800 Printing Subsystem 
only) 218 
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